<u>MS DOS QBasic 1.0</u>
Dim n As Integer, a As Double, b As Double
CLS
INPUT "0-площадь квадрата, иное-периметр прямоугольника"; n
If n = 0 Then
INPUT "Длина стороны: "; a
Print "Площадь квадрата " + Str$(a ^ 2)
Else
INPUT "Длина стороны прямоугольника: "; a
INPUT "Ширина стороны прямоугольника: "; b
Print "Периметр прямоугольника " + Str$(2 * (a + b))
End If
3) 45
4)
Program z4; Var b,a,i,m:integer; Begin read(b);for i:=1 to b do beginread(a);if a>0 and (a mod 2 = 0 )then m:=m+a; end;writeln(m);End.
Азбука Морзе позволяет кодировать символы для сообщений по радиосвязи задавая комбинацию точек и тире Сколько различных символов цифр букв знаков пунктуации так далее музыка резать воздух куда звуки морзе длиной не менее четырех-пяти сигналов точек тире
Program z1;
var s,a,b:real;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
s:=a*b;
writeln(s);
end.