например провели 5 измирений плотности раствора. пусть 1 первое измирение n1, второе-n2, 3-n3, 4- n4,5- n5. тогда програма будет виглядеть так:
program n1;
uses crt;
var n1,n2,n3,n4,n5,s: real;
begin
read(n1,n2,n3,n4,n5);
s: =(n1+n2+n3+n4+n5)/5;
write('s=',s);
end.
Ответ дал: Гость
знаю, что арабские цифры придумали в древней индии, про древнеиндийские книги знаю только то, что их писали на языке санскрите, и если не ошибаюсь, то записи в древней индии делали на глине
Ответ дал: Гость
var a,b,c,d: integer;
begin
writeln ('vvedite a');
read(a);
writeln ('vvedite b');
read(b);
writeln ('vvedite c');
read(c);
writeln ('vvedite d');
read(d);
if (a> b) and (a> c) and (a> d) then writeln('samoe bolshoe chislo - a')
Популярные вопросы