Program Bid;
Uses crt;
var a,b,max:integer;
begin
write(' Введите целое число a=');
readln(a);
write(' Введите целое число b=');
readln(b);
if a>=b then max:=a
else max:=b;
writeln('Max=',max);
end.
Задание 2:Program Text;
var x:integer;
begin
write('Введите цифру 1 или любую :');
readln(x);
if x=1 then write(' В а с я')
else write(' П е т я');
end.
Задание 3:Program Text;
var x:integer;
begin
write('Введите цифру 1, 2 или любую :');
readln(x);
if x=1 then write(' В а с я')
else if x=2 then write(' П е т я')
else write('ERROR');
end.
Задание 4:Program MaxFrom3;
begin
writeln('Введите 3 числа: ');
var (a, b, c) := ReadInteger3;
write('Наибольшее число: ', Max(a,b,c));
end.
Из курса математики мы знаем что периметр треугольника равен сумме его трех сторон, в равностороннем треугольнике они равны , потому
, где а - сторона равностороннего треугольника.
а площадь расчитывается по формуле
Смотрим программы.
1 Программа подходит, формулы в функциях вроде правильно написаны.
2 Программа не подходит, по виду вроде для квадрата формулы
3 Программа не подходит. Формула площади вроде для треугольника( половина основания на высоту), но не для равностороннего и в функции для периметра в аргументах 3 штуки - очевидно это стороны треугольника и предполагается что они разные.
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — сумму чисел, оканчивающихся на 4. написать нужно в питоне.
readed_list = [int(input()) for i in range(int(input()))]
print(sum(list(filter(lambda x: x % 10 == 4, readed_list))))
Протестировано