Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, s : integer;
begin
s: =0;
for i: = 10 to 99 do
if i mod 5 = 0 then s: =s+i;
writeln('сумма двузначных чисел, кратных 5 =', s);
readln
end.
program zadacha2;
uses crt;
var i,n,a: integer;
b,y,c,l: real;
clrscr;
readln(n);
a: =1;
b: =2;
c: =5;
for i: =1 to n do
if a mod 2 = 0 then
l: =a+b/c
else
l: =a-b/c;
a: =a+1;
b: =b+2;
c: =c+5;
y: =y+l;
end;
writeln(y: 2: 2);
readkey;
первую по подробней расспишите
2.5 кбайт = 2560 -байт = 20480 бит
20480 : 2560 = 8
ответ: 8 минут.
вроде както так..
нет,так как это не текствовый документ ,а картинка,и компьютер читает отсканированный файл картинкой а не текстом!
Популярные вопросы