Ничего не будет напечатано, так как в программе кроме большого количества опечаток есть и явная ошибка: переменная sr не может иметь тип integer (это следует из оператора <span>sr:=s/3).</span>
//Pascal ABC.NET v3.0 сборка 1111
Var
a:integer;
begin
writeln('Our burgers do not prepare you for the exam, but will learn to code');
writeln('Value of burgers:');
readln(a);
case a of
1:writeln('Mineral water');
2:writeln('Coca-cola bottle');
end;
if a>=3 then writeln('One more burger');
end.<span>
Пример ввода:
10
Пример вывода:
One more burger
</span>
Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.
begin
writeln('Сдача с 1000р при покупке 3 кг и 500г по цене 80 за кг = ', (1000 - (3.5 * 80)):2:2);
end.
(512*1024/(640*480))*2 = 3.4 - Три страницы экрана при палитре из 16-ти цветов
(512*1024/(640*480)) =1.7 - Одна страница экрана при палитре из 256 цветов