Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Даны целые числа m и n. Если числа неравны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если они равны то заменить числа нулями.

Program pr1; { даны целые числа m и n. Если числа неравны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если они равны то заменить числа нулями. }

uses crt;

var m,n:integer;

begin

clrscr;

writeln('введите два числа');

readln(m,n);

if m=n then begin n:=0;m:=0

end

else if m<n then m:=n

else n:=m;

writeln('полученные данные m=',m, ' n=',n);

end.

Вид экрана:

Дано двузначное число. Определить кратна ли трем сумма его цифр.

Program pr2; { Дано двузначное число. Определить кратна ли трем сумма его цифр}

uses crt;

var ed,des,n,m,s:integer;

begin

clrscr;

writeln('введите двузначное число');

readln(n);

ed:=n mod 10;

des:=n div 10;

s:=ed+des;

if s mod 3=0 then

writeln('суммма цифр числа ',n,' кратна трем')

else writeln('сумма цифр числа ',n,' не кратна трем');

end.

Вид экрана: