М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ирина1546
ирина1546
27.10.2021 09:46 •  Информатика

. Створіть програму, яка визначить відстань яку проїхав потяг, якщо потяг щогодини збільшував швидкість на 5 км. Ввести початкову швидкість потяга.

Вивести відстань

За який час потяг їхатиме зі швидкістю 300 км/год?

Вивести відстань потяга за час

Якщо потяг досягне швидкості менше, ніж за 50 годин, вивести на екран червоне вікно

Інакше зелене вікно

Розмір та заголовок на Ваш вибір

👇
Ответ:
Викa2003648219
Викa2003648219
27.10.2021

passed = 0

hours = 0

speed = int(input("Початкова швидкiсть :"))

distance = int(input("Вiдстань :"))

while passed <= distance:

   speed += 5

   passed += speed

   hours += 1

print("\n")  # Вiдступ

print("Швидкiсть :" + str(speed))

print("Час :" + str(hours) + " годин")

4,7(2 оценок)
Открыть все ответы
Ответ:
pro100skill132
pro100skill132
27.10.2021
Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k       for j = 1 to l               x(i, j) = rnd * 21 - 10               print using "###"; x(i, j);               print ; " ";       next j       print next i for i = 1 to l * 4 - 1       print ; "_"; next i print for n = 1 to l       for i = 1 to l - n - 1               if x(i, 2) < x(i + 1, 2) then               b = x(i, 2)               x(i, 2) = x(i + 1, 2)               x(i + 1, 2) = b               end if       next i next n for i = 1 to k       for j = 1 to l               print using "###"; x(i, j);               print " ";       next j       print next i end
4,7(27 оценок)
Ответ:
maksimiksanov
maksimiksanov
27.10.2021
1)uses crt; var  x,a,b,c,i: integer;     begin cls;   write('введите число: '); readln(x);     a: = x div 100;     b: = (x - a*100) div 10;     c: = (x - a*100 - b*10);     if (a=b) or (a=c) or (b=c) then    writeln('есть одинаковые цифры')    else    writeln('одинаковых цифр нет'); end.2)uses crt; var  x: real;     begin cls;   write('сумма покупки: '); readln(x);     if x> 1000 then x: =x-(x*0.1);     writeln('стоимость с учётом возможной скидки ',x); end.
4,4(88 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ