Программа выводит сами числа и их квадраты
Program Square5;
Uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 5 do
writeln(i,' ',i*i );
readkey;
end.
....................................
Turbo Pascal:
Program readInteger;
Uses CRT;
Var s:char; z:Integer;
Begin
ClrScr;
WriteLn('Введите числа:');
repeat
If (KeyPressed = true) than
begin
S:=ReadKey
z:=z+1;
End;
Until s ="0";
Write('Вы ввели ',z,' чисел!');
ReadLn;
End.
Принтер-это устройство вывода текстовой и графической информации из персонального компьютера на бумажный носитель. В современных моделях принтеров существует возможность вывода информации на какой-либо другой носитель, например синтетическая пленка.
var n, i: integer;
begin
write('Введите число: ');
readln(n);
i:=2;
while n mod i <> 0 do
i += 1;
if i = n then
writeln('Простое')
else
writeln('Не простое');
end.