// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin var k:=0; var n:=ReadInteger(); var nmax:=0; while n<>0 do begin Inc(k); if n mod 10 = 0 then if n>nmax then nmax:=n; n:=ReadInteger() end; var cntrl:=ReadInteger(); Writeln('Получено ',k,' чисел'); Writeln('Полученное контрольное значение: ',cntrl); Writeln('Вычисленное контрольное значение: ',nmax); if cntrl=nmax then Writeln('Контроль пройден') else Writeln('Контроль не пройден') end.
Для быстрого перемещения курсора в пределах экрана можно использовать следующие клавиши и сочетания клавиш:
На один символ влево СТРЕЛКА ВЛЕВО На один символ вправо СТРЕЛКА ВПРАВО На одно слово влево CTRL+СТРЕЛКА ВЛЕВО На одно слово вправо CTRL+СТРЕЛКА ВПРАВО На один абзац вверх CTRL+СТРЕЛКА ВВЕРХ На один абзац вниз CTRL+СТРЕЛКА ВНИЗ К предыдущей строке СТРЕЛКА ВВЕРХ К следующей строке СТРЕЛКА ВНИЗ В конец строки END В начало строки HOME Если текст большой, то на экране будет видна только его часть, а весь он будет храниться в памяти компьютера. Существует режим прокрутки, позволяющий быстро вывести на экран части текста, находящиеся за его пределами. Это можно сделать с полос прокрутки, расположенных справа и внизу окна документа
Код программы;
var a, b:integer;
begin
writeln('Введите 1 число: ');
readln(a);
writeln('Введите 2 число: ');
readln(b);
if sqr(a) > sqr(b) then
writeln('Наименьший квадрат: ',sqr(b))
else
writeln('Наименьший квадрат: ',sqr(a))
end.