Срооооооооооооооооочноооооооооооооо хотябы что то - Все ответы

Дан 1 ответ

Правильный ответ

1)

program p1;
var F,D:integer;
begin
F:=3;
D:=7;
writeln('Число F = ',F,', а число D = ',D);
end.

2)

program p2;
var C,S:integer;
begin
readln(C,S);
writeln('Число S= ',C,' и является целым числом.');
writeln('Число S= ',S,', число S тоже целое число.');
end.

3)

program p3;
var X,Y,Z:integer;
begin
X:=23;
Y:=16;
Z:=X-Y;
writeln('Разность=',Z);
end.

4)

program p4;
var X,Y,Z:integer;
begin
readln(X,Y);
Z:=X*Y;
writeln('Произведение=',Z);
end.

5)

program p5;
var X,Y,Z,S:integer;
begin
readln(X,Y,Z);
S:=X+Y+Z;
writeln('Сумма=',S);
end.

6)

program p6;
var N,m:integer;
begin
readln(N);
m:=(N-3)*6;
writeln('Масса=',m,' кг');
end.

7)

program p7;
var X,Y,Z:integer;
begin
readln(X,Y);
Z:=X-Y;
writeln(Z,' грибов собрал Коля');
end.

8)

program p8;
var X,T,S:integer;
begin
readln(X,T);
S:=(X+3)*T;
writeln(S,' км прошла лодка за ',T,' час(ов)');
end.

9)

program p9;
var H,K,C,Y,O:real;
begin
readln(H,K,C,Y);
O:=((H*100+K)-(C*Y))/100;
writeln(O,' рублей осталось у Маши');
end.

10)

program p10;
var x,y:real;
begin
readln(x);
y:=5*x-7;
writeln('Результат ',y);
end.

unnameduser05_zn (144 баллов) 27 Май, 20