Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 11.

Проверка равенства трех чисел, введенных с клавиатуры

Program Mx;
  var А,В,С: integer;
begin
  writeln(' Введите 3 числа:');
  readln(A,B,C);
  if (A = В) and (A = С) then
     writeln('Числа равные')
  else
     writeln('Числа не равны');
  readln
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100