Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D
Я не трус, но я боюсь!
(Бриллиантовая рука)
Да нам, царям, молоко нужно выдавать за вредность!
(Иван Васильевич меняет профессию)
Этот нехороший человек предаст нас при первой же опасности!
(Джентльмены удачи)
Бамбарбия! Киргуду! Шутка!
(Кавказская пленница)
Шурик, это же не наш метод!
(Операция Ы и другие приключения Шурика)
Восток – дело тонкое.
Белое солнце пустыни
Утром деньги – вечером стулья, вечером деньги – ночью стулья…
(двенадцать стульев)
он, конечно, виноват, но он… не виноват…
(Берегись автомобиля!)
8бит=1байта
16бит=2байта
8*32*64*2=32768байт переводим в Кбайты 1Кбайт=1024байта
32768/1024=32Кбайт
Var a, b: integer;
begin
write('Введите два числа: ');
read(a, b);
writeln(a, ' + ', b, ' = ', a + b);
writeln(a, ' - ', b, ' = ', a - b);
writeln(a, ' * ', b, ' = ', a * b);
writeln(a, ' / ', b, ' = ', a / b);
<span>end.</span>