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

Перевести на язык Паскаль алг Общая стоимость
вещ таб Т[1:10], C[1:10]
цел I, вещ AllPrice
нач
AllPrice:=0
для I от 1 до 10 шаг 1 повторять
нц
вывод "I, " товар"
вывод "Количество товара:"
ввод T[I]
вывод "Цена за единицу товара:"
ввод C[I]
AllPrice:=AllPrice + T[I] * C[I]
кц
вывод "Общая стоимость покупок = ", AllPrice, " руб."
кон

👇
Ответ:
died267
died267
29.11.2022

Program Total_Cost;

Var T:array [1..10] of real; C:array [1..10] of real;

      I: integer; AllPrice:real;

Begin

AllPrice:=0;

for I :=1 to 10 do

    begin

        write (I, ' товар');

write( 'Количество товара:');

read T[I];

write( 'Цена за единицу товара:');

read( C[I]);

AllPrice:=AllPrice + T[I] * C[I];

end;

write( 'Общая стоимость покупок = ', AllPrice, ' руб.');

end.

4,5(98 оценок)
Открыть все ответы
Ответ:
Unicorn7
Unicorn7
29.11.2022
)

Если длина массива d(количество делителей числа d) > 17:

 if (len(d) > 17):

То выполняем следующие действия:

- количество подходящих под условии чисел (count) увеличиваем на 1

   count += 1  

- сравниваем минимальное подходящее число min и текущее now_el (и при необходимости присваиваем новое значение  (min=now_el))

   if(min > now_el):  

     min = now_el

Увеличиваем значение переменной текущего элемента (now_el) на 1:

 now_el+=1  

Выводим полученный результат:

print('ответ:')

print(count, min)


ПОЧИНИТЬ код! После запуска ничего не происходит. ответ должен быть 706630008. Сделайте все понятно,
ПОЧИНИТЬ код! После запуска ничего не происходит. ответ должен быть 706630008. Сделайте все понятно,
ПОЧИНИТЬ код! После запуска ничего не происходит. ответ должен быть 706630008. Сделайте все понятно,
4,7(4 оценок)
Ответ:
Artemij08
Artemij08
29.11.2022

#include <iostream>

using namespace std;

int main() {

 int a, b, c;

 cin >> a >> b >> c;

 if (a > b && a > c) {

   cout << "Наибольшее число из введенных: "<< a << endl;

 }else if ( b >> a && b >> c) {

   cout << "Наибольшее число из введенных: "<< b << endl;;

 }else {

   cout << "Наибольшее число из введенных: "<<c << endl;

 }

}

P.S. обратите внимание, что три числа вводятся В ОДНУ СТРОКУ через пробел

4,4(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ