Предмет: Информатика,
автор: наглаяБяка
помогите написать задачи на Pascal
1.выведите на экран натуральные числа, меньшие 500, кратные 3 и заканчивающиеся на 4
2.Найти НОД двух целых чисел.
Ответы
Автор ответа:
0
1) var n,i:integer;
begin
for i:=1 to 500 do
if (i mod 3=0) and (i mod 10=4) then
writeln (i);
readln;
end.
2)
var a,b:integer;
begin
readln (a,b);
while (a<>0) and (b<>0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.
Похожие вопросы
Предмет: Русский язык,
автор: aminatahirova024
Предмет: Биология,
автор: slims212
Предмет: Информатика,
автор: Аноним
Предмет: Математика,
автор: mrgame16