Сколько раз выполнится цикл и что будет выдано на экран в предложенном фрагменте программы:

i:=134; y:=0; for i:=1 to i do y:=y+2; writeln (y)

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

1. Сколько раз выполнится тело цикла во фрагменте программы S:=8; for i:=46 to 1 do s:=s+i; 2. Сколько раз выполнится тело цикла во фрагменте программы S:=0; for i:=1 to 50 do s:=s+i; 3.

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

Установите взаимнооднозначное соотношение: 1) x:=1; A) Тело цикла не выполнится ни разу while x

Что я неправильно написал? 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.