Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
например такие числа
954-459=495
хвалебный
program e8;
var a, b, c, v: real;
begin
writeln('введите значения длины, ширины,высоты');
readln(a,b,c);
v: =a*b*c;
writeln('v=', v: 4: 2);
readln;
end.
var a: array [1..8,1..5]of integer;
s,i,k: integer;
randomize;
for i: = 1 to 8 do begin
for k: = 1 to 5 do begin
a[i,k]: = random(20)-10;
write(a[i,k]: 3,' ');
if a[i,k] mod 2 = 0 then s: =s+a[i,k];
end;
writeln;
writeln('s=',s);
Популярные вопросы