Определите функционал программы.

Begin

readln (n) ;

count : = 0;

for i : = 1 to n do begin

if n mod i = 0 then inc (count)

end;

writeln (count = 2)

end.

1) находит веденное число равным 2

2) находит натуральные числа

3) находит, является ли число простым

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;

Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;

Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.

Что я неправильно написал? var a, b, c, d: real; begin writeln (' введи число a') ; readln (a) ; writeln ('введи число b') ; readln (b) ; writeln ('введи число c') ; readln (c) ; d:=a; a:=c; writeln (a) ; c:=b; writeln (c) ; b:=d; writeln (b) ; end.

Есть задача и надо сказать, в чем ее суть: var a, b, s, n, u:integer; begin readln (s) ; n:=s mod 4; u:=s mod 2; if (S mod 2>0) then writeln ('Инвалиды') else for a:=0 to n do begin for b:=0 to u do begin if ((a*4) + (b*2) = s) then writeln (a, b) ;