Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program p_1
var
a: string
begin
writeln ('vvedite nazvanie rek');
read (a);
if (a='волга,днепро,нёман,енисей')then
writeln ('в беларуси протекают только днепро,нёман');
end.
var i,s: integer;
writeln('summa ');
for i: =100 to 999 do
if i mod 17 =0 then s: =s+i else s: =s+0;
writeln(s)
320 * 1024 = 327680 мб
327680 / 700 = ,=> нужно 469 дисков. 469 * 15грамм = 7035 гр = 7кг 35 гр
x,y: real;
i,n: integer;
n: =1;
x: =1;
y: =1;
for i: =1 to 5 do
n: =n*i;
x: =-1.5*x;
y: =y*(x+1/n);
end;
writeln(y: 15: 5);
Популярные вопросы