Память_____________________
1(a)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
writeln(c);
readln;
d:=a-b;
writeln(d);
readln;
end.
b)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
c)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа'); //здесь вводим два числа
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
2.
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите три числа');
readln(a,b,c);
d:=a*b*c;
writeln(d);
readln;
end.
3.
Program Treugol;
var a,b,c,d:real;
begin
writeln('введите два числа');
readln(a,b);
c:=2*(a+b);
d:=a*b;
writeln(c,d);
readln;
end.
4.
Program Goda;
var R:real;
begin
write('введите R');
readln(R);
<span><span>d:=R*356;
</span><span>c:=d*24;
</span><span>m:=c*60;
</span><span>s:=m*60;
</span></span>writeln(d);
writeln(c);
writeln(m);
writeln(s);
readln;
end.
Надеюсь на лучший ответ и на спасибо:)
Var s : string;
i : integer;
begin
readln(s);
for i := 1 to length(s) do writeln(s[i]);
end.
Ответ:
Иерархическая система — структура с вертикальной формой управления (контроля) элементами, входящими в неё. Фактически это пирамида, каждым уровнем которой управляет более высокий уровень.
Объяснение:
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, d, r) := ReadInteger3;
var (km, kd) := (r div m, r div d);
for var i := 0 to km do
for var j := 0 to kd do
if i * m + j * d = r then Println(i, j)
end.
<h2>Пример</h2><h3>2000 3000 20000</h3><h3>1 6 </h3><h3>4 4 </h3><h3>7 2 </h3><h3>10 0 </h3>