Тема: ABC Pascal. Обыкновенные и составные условия. Алгорическая конструкция  (if, then, else

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

Задачка 1

Заданы два целых числа. Напечатать делится ли первое на 2-ое нацело.

Задача 2

Напечатать, является ли данное число чётным.

Задачка 3

Вводятся 3 числа. Найти наивеличайшее.

Задать свой вопрос
Егор Тетенин
1) if a mod b =0 then
Алена Перушкина
2)if a mod 2=0
Ден
3)max:=a;
Антон Молгадский
if a
Виолетта Лобнова
все
Милена
ставь лойсы
1 ответ
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(bgt;max)then max:=b;
if(cgt;max)then max:=c;
writeln(max);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт