Тема: ABC Pascal. Простые и составные условия. Алгорическая конструкция  (if, then, else и проч.) Задача 1  Заданы два целых числа. Напечатать делится ли первое на второе нацело.   Задача 2 Напечатать, является ли заданное числ...

Тема: ABC Pascal. Простые и составные условия. Алгорическая конструкция  (if, then, else и проч.) Задача 1  Заданы два целых числа. Напечатать делится ли первое на второе нацело.   Задача 2 Напечатать, является ли заданное число чётным.   Задача 3 Вводятся 3 числа. Найти наибольшее.
Гость
Ответ(ы) на вопрос:
Гость
1) program chik; var a,b:integer; begin read(a,b,c); if(a mod b=0)then writeln('делиться')else writeln('не делиться'); end. 2) program chik2; var a:integer; begin read(a); if(a mod 2=0)then writeln('да')else writeln('NO'); end. 3) program chik3; var a,b,c,max:integer; begin read(a,b,c); max:=a; if(b>max)then max:=b; if(c>max)then max:=c; writeln(max); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы