var a,sum:integer;
begin
read(a);
while(a<>0)do begin
if(a mod 4=0)and(a>99)and(a<1000)then sum:=sum+a;
read(a);
end;
write(sum);
end.
1. = А(B+B+C) = A(2B + C)
Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to 6 do
begin
if n mod 2 = 1 then begin k:=i; break; end;
n:=n div 10;
end;
if k=0
then writeln('В числе нет нечётных цифр')
else writeln('k = ',k);
end.
Пример:
n = 123456
k = 2
1 Мбайт = 1024 Кбайт = 1024*1024 байт = 1024*1024*8 бит
Время передачи файла = 1024*1024*8 / 1024 = 1024*8 с = 8192 с
Блок схема задана, на листе. Проверяем на истинность, если x≥3 , у примет значение
, если это условие ложное, то x<3 и у равно
tgx.
