Помогите написать задачи на Pascal…

Question

Помогите написать задачи на Pascal 1. Выведите на экран натуральные числа, меньшие 500, кратные 3 и заканчивающиеся на 4 2. НайтиНОД двух целых чисел.

Answer 1

56

chenpo

30 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: