Program g;
var a,b,c,i:integer;
begin
writeln('Введите количество чисел');
readln(a);
c:=1;
writeln('Введите ', a, ' чисел(а)');
for i:=1 to a do
begin
readln(b);
c:=c*b;
end;
writeln('Произведение чисел=',c);
readln;
<span>end.
Program g;
var a,b,c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
if (a+b)>0 then
c:=(a*a)+(b*b)
else
c:=(a+b)*(a+b);
writeln('Результат=',c);
readln;
<span>end.
</span>
Третье задание не понял.</span>
Порт- обычно соединение (физическое или логическое), через которое принимаются или отправляются данные на компьютере.
1) Pascal:var a,b,u,S:integer;
<span>begin //ВВедите стороны параллелограмма "ab" и угол Альфа
</span><span>readln(a,b,u);
</span><span>S:=a*b*Sin(u);
</span><span>writeln("Площадь параллелограмма равна: ",S);
</span><span>readln;
</span><span>end.</span>
2)117 в двоичной = 1110101 (см. приложение)
<span>100110 = 25*1 + 24*0 + 23*0 + 22*1 + 21*1 + 20*0 = 32 + 0 + 0 + 4 + 2 + 0 = 38 удачи)</span>
<span><u>Задача а)</u>
</span>// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
a,b:real;
procedure WriteAvg;
begin
Writeln('Среднее= ',(a+b)/2)
end;
begin
Write('a,b='); Read(a,b);
WriteAvg
end.
<u>Тестовое решение:</u>
a,b=6 4.9
Среднее= 5.45
<u>Задача б)</u>
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var c:=ReadlnChar('Введите символ:');
if c in ['A'..'z','А'..'я','Ё','ё'] then Writeln('буква')
else
if c in ['0'..'9'] then Writeln('цифра')
else Writeln('спецзнак')
end.
<u>Тестовое решение:</u>
Введите символ: i
буква