Решите через программу паскаль На вход поступают положительные и отрицательные числа. Ввод осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех четных чисел, введенных с клавиатуры
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin Write('Введите 1-прямоугольник, 2-параллелограмм, 3-трапеция:'); var n:=ReadInteger; case n of 1:begin Writeln('ПРЯМОУГОЛЬНИК'); var (a,b):=ReadReal2('Введите длины сторон:'); Writeln('Площадь равна ',a*b) end; 2:begin Writeln('ПАРАЛЛЕЛОГРАММ'); var (a,h):=ReadReal2('Введите длину основания и высоту:'); Writeln('Площадь равна ',a*h) end; 3:begin Writeln('ТРАПЕЦИЯ'); var (a,b,h):=ReadReal3('Введите длины оснований и высоту:'); Writeln('Площадь равна ',(a+b)/2*h); end; else Writeln('Введен неверный номер') end end.
По поводу "является ли трапеция параллелограммом или ромбом". Это некорректный вопрос в информатике. Споры о том, является ли трапеция частным случаем параллелограмма или ромба так и не закончены. Поскольку копирование из Интернет материалов сюда запрещено, а также запрещены ссылки на внешние источники, отсылаю заинтересованных лиц к материалу, который называется "Параллелограммная война". Это о военном конфликте между Англией и Францией, возникший из-за разногласий на научной конференции в Геттингенском университете. Ну а нам войны не нужны, поэтому если автор вопроса четко сформулирует критерий, по которому можно ответить на заданный им подвопрос, можно будет добавить это в программу.
Странное задание! Если число целое и двухзначное меньше 15, то это числа 10, 11, 12, 13 и 14. В восьмеричном представлении они больше десятичного значения на 2, т.е. 10₁₀ = 12₈, 11₁₀ = 13₈, ... 14₁₀ = 16₈
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Введите число от 10 до 14:'); Writeln('В восьмеричной системе оно записывается как ',n+2) end.
Пример Введите число от 10 до 14: 13 В восьмеричной системе оно записывается как 15
var a,s: integer;
begin
s:=0;
repeat
write('Введите число: ');
readln(a);
if (a mod 2 = 0) then s:=s+a;
until a=0;
writeln('Сумма всех четных чисел: ',s);
end.