Нужна помощь с информатикой. 22 номер оба задания. 1 лист нужно через while, 2 через For. Ну на листах подписано через while или For делать. Спасибо.
Приложения:
![](https://st.uroker.com/files/bca/bcab696251759f58574aad03eaacef9d.jpg)
![](https://st.uroker.com/files/d1d/d1d8ffb2c3af22a2aa8a3b33a69aec91.jpg)
Ответы
Ответ дал:
0
Ответ:
реализовал на паскале
Объяснение:
program While22;
var i, num:integer;
isSimple : boolean;
Begin
isSimple :=true;
readln(num);
if (num mod 2 = 0) and (num<>2)then isSimple := false;
i:=3;
while i*i<=num do
begin
if (num mod i=0)then begin isSimple := false;break; end;
i:=i+2
end;
writeln(isSimple)
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад