elshad2003
04.09.2021 01:45

5. Найди ошибки в программе a=(input("Введите первое целое число "))
b=int(input('Введите второе целое число ))
if a<b:
min=a
else a>b:
min=b
print(min)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Всеникизаняты11
24.12.2021 00:05

Полная.

"У школы №3 1 сентября в 10:00 будет проведена линейка"


Полезная.

Состав принимаемого лекарства.

Формулы по физике во время экзамена.


Актуальная.

Курс валюты.

Погода на улице, когда вы выходите из дома.


Достоверная.

"Россия выиграла у Испании на ЧМ за счет пенальти."

Данные, записанные в документах.


Точная.

"Земля - шарообразная"


Понятная.

"Завтра на улице вас встретит сильный дождь" (вместо - "Ожидаются 50 мм осадков за 12 ч." )


Объективная.

"Высота этой скалы 100 м." (вместо "Скала довольно высокая").

0,0(0 оценок)
Ответ:
natik49
14.09.2021 18:33
№1

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.

№2

var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.

№3

У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"

var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.

№4

var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;

writeln('Сумма введенных чисел: ', sum);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота