Var a: array [1 .. 10] of integer;
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] = C then
begin
Count := Count + 1;
tmpLast := i;
end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
writeln('В массиве нашлось число, равное С');
if (Count = 1) then
writeln('Первое и единственное число в позиции a[', tmpLast, ']')
else
begin
i := 0;
repeat
i := i + 1;
tmpFirst := i;
until (a[i] = C);
writeln('Первое такое число a[', tmpFirst, ']');
writeln('Последнее такое число a[', tmpLast, ']');
end;
end;
readln;
end.
Перевод из бит в мегабайт в с :80*10^20 бит в секунду = 0.00001 мегабайт в секундуперевод 1 м 20с в секунды : 80с находим файл : 80с * 0.00001 мегабайт в секунду = 0,0008 мегабайт
737^10-2,16≈4,72797•10^28
Могу только это решение дать
var x,y:real;
begin
read(x,y);
if (x*x+y*y>4) and (y0) then writeln ('YES')
else writeln('NO');
end.
Program zz;
var a:integer;
begin
readln(a);
a:=a mod 10;
if a mod 2=0 then writeln(a,' -четное число')
else writeln(a,' -нечетное число');
<span>end.</span>