Var len: Integer;
begin
write('Введите строку: ');
readln(s); // считываем из стандартного потока ввода, например.
len := length(s); запоминаем длину строки
end;
Key Words for FKN + antitotal forum (CS VSU):
1) 3206
2) 211.0555...
3) 1746
4) 1111100110
5) 113
6) 8FB
7) 43.7
8) 1000001.000001
9) 1101110111111111.101
10)7422.010534
program raf105;
var
a: array[1..100] of integer;
i,n,c: integer;
x: boolean;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
x:= True;
readln(n);
for i:=2 to n-1 do
if (n mod i = 0) and (n <> 0)
then x:= False;
if x and (n <> 0)
then begin
c:= c+1;
a[c]:= n;
end;
until n = 0;
write('Простые числа: ');
for i:=1 to c do
write(a[i],' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>