Uses crt;
var a,t,ans:integer;
begin
read(a);
ans:=1;
while true do
begin
t:=a;
read(a);
if a>t then
ans:=ans+1
else
break;
end;
writeln(ans);
<span>end.</span>
Var
a,b,i:integer;
begin
for i:=0 to 56 do
begin
if i mod 2 = 0 then a:=a-i else a:=a+i;
end;
end.
Як я маю тобі це показати на блокноті, якщо це все треба робити на копі?
2.
var a,b,s:integer;
begin
readln(a,b);
s:=a*b;
writeln(s);
end.
3.
var b,c,sum:integer;
begin
readln(b,c);
sum:=(b+c)*10;
writeln(sum);
end.
Автоматический показ презентации.
Для этого нужно на панели Риббон открыть вкладку Показ презентации и выбрать Настройка демонстрации. В диалоговом окне Настройка презентации выбираем Автоматический (полный экран) и нажимаем <span>ОК</span>
<span>
</span>