Что выведут на экран приведённые фрагменты программ?

а)

s:=1;

for i: = 1 to 5 do

if i> 2 then

s: = s*1;

writeln (s) ;

б)

s:=0;

a:=3;

for i: = 1 to 10 do

s:=a+1;

writeln (s) ;

в)

s:=0;

a:=5;

for i:=1 to 3 do

s:=2*a;

writeln (s) ;

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

Задание Определить без компьютера, что будет напечатано при выполнении следующих фрагментов программ: 1. k:=20; k:=k+10; if k+1030 then k:=8 else k:=k-1; WriteLn (k) Ответ: 2. k:=20; k:=k+10; if k+10 = 30 then k:=8 else k:=k-1; WriteLn (k) Ответ: 3.

Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...') ; Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...

Объясните, как будут выполняться фрагменты программ: 1) if ab then a:=a else a:=b; 7) if a mod 23 then a:=a+1; 8) if (a mod 2=1) or (a mod 2 = 0) then if a

Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;