Пользователь вводит числа с клавиатуры до тих пор, пока не введёт число ноль. после ввода ноль программа выводит на экран количество четных и сумму не четных введенных чисел.
Ответы
1)
program numOp;
var a,b:longint;
begin
write('a='); readln(a);
write('b='); readln(b); writeln;
writeln('Среднее арифметическое: ',((a+b)/2):0:2);
writeln('Сумма: ',a+b);
writeln('Разность: ',a-b);
writeln('Произведение: ',a*b); readln;
end.
2)
program triangleInf;
var
kat1,kat2:longint;
gip,s:real;
begin
write('Катет1: '); readln(kat1);
write('Катет2: '); readln(kat2);
gip:=sqrt(sqr(kat1)+sqr(kat2)); s:=kat1*kat2/2;
writeln('Гипотенуза: ',gip:0:2);
writeln('Площадь: ',s:0:2); readln;
end.
program numOp;
var a,b:longint;
begin
write('a='); readln(a);
write('b='); readln(b); writeln;
writeln('Среднее арифметическое: ',((a+b)/2):0:2);
writeln('Сумма: ',a+b);
writeln('Разность: ',a-b);
writeln('Произведение: ',a*b); readln;
end.
2)
program triangleInf;
var
kat1,kat2:longint;
gip,s:real;
begin
write('Катет1: '); readln(kat1);
write('Катет2: '); readln(kat2);
gip:=sqrt(sqr(kat1)+sqr(kat2)); s:=kat1*kat2/2;
writeln('Гипотенуза: ',gip:0:2);
writeln('Площадь: ',s:0:2); readln;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
по информатиккеее Вычисления с языка Python Упр 1 , 2
Автор: Vladimir1172
Дано натуральное n. вычислить 2/1+3/2+4/3++n+1/n.
Автор: spikahome
Какие средства общения используют администратора?
Автор: gorbelena1971
program numOp;
var a,b:longint;
begin
write('a='); readln(a);
write('b='); readln(b); writeln;
writeln('Среднее арифметическое: ',((a+b)/2):0:2);
writeln('Сумма: ',a+b);
writeln('Разность: ',a-b);
writeln('Произведение: ',a*b); readln;
end.
2)
program triangleInf;
var
kat1,kat2:longint;
gip,s:real;
begin
write('Катет1: '); readln(kat1);
write('Катет2: '); readln(kat2);
gip:=sqrt(sqr(kat1)+sqr(kat2)); s:=kat1*kat2/2;
writeln('Гипотенуза: ',gip:0:2);
writeln('Площадь: ',s:0:2); readln;
end.