Помогите решить! 1) Вводятся 4 числа: a, b, c и d. Выведите все числа на отрезке от a до b,…

Question

54

Помогите решить! 1) Вводятся 4 числа: a, b, c и d. Выведите все числа на отрезке от a до b, дающие остаток c при делении на dВходные данные 1 4 1 2 выходные данные 1 3Входные данный 1 5 0 4 выходные данные 42) Выведите все числа на отрезке от a до b, являющиеся полными квадратами. Входные данные 1 5 выходные данные 1 4 выходные данные 2 9 выходные данные 4 93) Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000). Входные данные 4 выходные данные 2 входные данные 5 выходные данные 5

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

maratka1983 · Accepted Answer

64

maratka1983

21 августа 2022

Var a, b, c, d, i: integer; Begin read (a); read (b); read (c); read (d); for i: =a to b do if (i mod c=d) then writeln (i); writeln (); for i: =a to b do if frac (sqrt (i)=0 then writeln (i); writeln (); for i: =2 to a-1 do if a mod i=0 then begin writeln (i); exit; end; End.

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

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

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

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