Задание:
Помогите написать задачи на Pascal 1. Выведите на экран натуральные числа, меньшие 500, кратные 3 и заканчивающиеся на 4 2. НайтиНОД двух целых чисел.
Решение:
1) var n,i: integer; beginfor 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; beginreadln (a,b); while (a<>0) and (b<>0) doif a>b then a: =a mod belse b: =b mod a; writeln (a+b); readln; end.
Знаете другой ответ?