Помогите, плизз, нужно составить программу, номер1 там где рисунок, мне очень срочно, буду благодарна.

1

Ответы и объяснения

2013-05-19T07:04:34+00:00

1 и 3, 2 забыл геометрию )

var x,y,z,x1,y1,z1:integer;
begin
cls;
write('Write min(x,y,z) = ');
readln(x,y,z);
write('Write max(x,y,z) = ');
readln(x1,y1,z1);
writeln('F = (',x+x1,',',y+y1,',',z+z1,')');
readln;
end.


uses crt;
var NUM :integer;
begin
clrscr;
writeln('Write number of month: ' );
readln (NUM);
if ((NUM > 12) or (NUM < 1)) then writeln('ERROR')
else
case NUM of

1:writeln ('December');
2:writeln ('January');
3:writeln ('February');
4:writeln ('March');
5:writeln ('April');
6:writeln ('May');
7:writeln ('June');
8:writeln ('July');
9:writeln ('August');
10:writeln ('September');
11:writeln ('October');
12:writeln ('November');
end;
readln
end.