Предполагается, что будет введено минимум одно значение.
varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a > max) and (a <> 0) thenmax := a;until a = 0;writeln(max);readln;end.
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
Подробнее - на Znanija.com -
znanija.com/task/1506362#readmore
1) Можно сделать пустой слайд, а на следующем текст. По щелку первый слайд переключится на второй.
2) Можно на слайде написать текст, выделить его и сделать анимацию: чтобы он появлялся по щелчку мыши.
Или попроси одноклассников отвернуться. Или сделай много пустых слайдов, чтобы не было видно тот, который с текстом.
===== PascalABC.NET =====
begin
var x := 12.0;
while x <= 15.1 do
begin
var y := Sin(x) - x ** 2;
Writeln(x:4:1, y:16:9);
x += 0.2
end;
end.
Begin
var a:=ReadInteger;
var w,q: integer;
w:=a div 10;
q:=a mod 10;
write((q+w)/2);
end.