Program suma; var n, sum, i: integer; begin read(n); for i: =1 to n do sum: =sum+i; write(sum); end.
Спасибо
Ответ дал: Гость
program nm12;
var a, d : integer;
begin
writeln (' vvedite diametr kruga i storony kvadrata ');
readln (d);
readln (a);
if d< =a then writeln (' krug pomestits9 v kvadrate ')
else writeln (' krug ne pomestits9 v kvadrate ');
readln;
end.
Ответ дал: Гость
был уже такой вопрос отвечен.
от себя
скорость обработки, соответственно и обьемы обработки, обработка по требованию в минимальное время, что позволяет сразу использовать результаты в дальнейших операциях, точность рассчетов
Популярные вопросы