Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program m;
uses crt;
var a,b,c,sum: integer;
begin
clrscr;
readln(a,b,c);
sum: =a+b+c;
writeln(' ',sum);
readkey;
end.
хай
program _1_2; uses crt; var dlina, shirina, vysota: real; begin clrscr; textcolor(14); writeln('вычисление объёма параллелепипеда.'); writeln('введите исходные данные: '); write('длина (см) -> '); readln(dlina); write('ширина (см) -> '); readln(shirina); write('высота -> '); readln(vysota); writeln('объём: ',(dlina*shirina*vysota): 7: 2); repeat until keypressed; end.
в блок схемах не сильна
var n: integer;
s,s0: real;
n: =1;
s: =10;
repeat
n: =n+1;
s: = s + (100+p)*s0/100;
s0: =(100+p)*s0/100;
until s> 200;
writeln(s);
Популярные вопросы