Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,i,s: integer;
begin
writeln('введите 2 числа');
readln(a); readln(b);
s: =0;
if a< b then
for i: =a to b do
if i mod 2 = 0 then
s: =s+1;
end;
if a> b then
for i: =b to a do
writeln(s)
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;
writeln(y: 2: 2);
readkey;
первую по подробней расспишите
320 * 1024 = 327680 мб
327680 / 700 = ,=> нужно 469 дисков. 469 * 15грамм = 7035 гр = 7кг 35 гр
за тридевять земель или к чёрту на кулички
Популярные вопросы