profile
Опубликовано 4 года назад по предмету Информатика от mrr1ght

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

Задача 1 

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

 

Задача 2

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

 

Задача 3

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

  1. Ответ
    Ответ дан kage1998
    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.