Вариант 3. 1. Что выведется на экран в результате выполнения программы:
program pty:
var i, a, c: integer,
begin c: 4;а; 1;
for i:- 6 downto 4 do
с:=с+i;
а:= a* 2;
writeln (a, c):
end.
2. Что выведется на экран в результате выполнения фрагмента
программы:
s: 0:
for js-10 to 15 do
begin
s: s+2*і:
writeln(' j=", j, 's="s)
end.
3. Определить значение переменной у после выполнения следующих
фрагментов программы:
Vary : rеаl: i: integer;
у= 1.5; for i:= 6 dоwnto 4 do y i-у;
4. Определить значение переменной у после выполнения следующих
фрагментов программы:
Var y: real; k: integer;
у= 1; fоr к:=1 to 3 do y =y+к; уну* 10;
5. Что будет выведено на экран в результате выполнения фрагмента
программы:
Forn:-- 1 to 8 do begin
х: 7+n* 3:
if x>15 then Write(x-10) else Write(x);
end;

scaier    3   19.10.2020 02:00    15