Обработки информации наверное.
Program Test;
Var
N,n1,tst,i,count:integer;
Begin
readln(N);
while n1<N do begin
n1:=n1+1;
count:=0;
for i:=1 to n1 do begin
if n1 mod i = 0 then inc(count);
end;
if n1>1 then if count=2 then writeln(n1);
end;
<span>End.</span>
Ответ:
11111110001 = 2033; 4321=586; 18B=395; 0,347
Объяснение:
var
a:array[1..31] of real;
i,k:integer;
min:real;
begin
min:=50;
for i:=1 to 31 do
begin
readln(a[i]);
if a[i]<min then min:=a[i];
end;
k:=0;
for i:=1 to 31 do
if a[i]=min then k:=k+1;
writeln(k);
end.
Вообще то варианты некоректны. Вы должны использовать скобки вместе с апострофами, именно апострафами, а не кавычками, т.е. все должно выглядить,например, так
Writeln('Всего было ', а,' символов');
Т.е. на экран выведиться следущее, если а получилось равно 98
Всего было 98 символов