Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
uses crt; var a,b,c,min: integer; beginwriteln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел: ',min); readln; end.
var a: array [1..9] of real;
s,p: real;
begin
p: =1;
s: =0;
for i: = 1 to 9 do
read(a[i]);
s: = s+a[i];
p: =p*a[i];
end;
writeln("summa=",s);
writeln("srednee arefmeticheskoe=",s/n);
writeln("proizvedenie=",p);
end.
а столбчатая диаграмма
б график
в ярусная диаграмма
г областная диаграмма
дкруговая диаграмма
на египетскую
вавилон-клинопись
финикия-подобие букв без гласных
египет-иероглифы
Популярные вопросы