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

Доповни код так, щоб було відображено значення 7.
х = 2
a = х2
a = a +
print(a)​

👇
Открыть все ответы
Ответ:
hohlov228
hohlov228
31.05.2023

program rev;

var

 weight, price, revenue: integer;

begin

 write('Введите количество урожая, которое собрал фермер(кг): ');

 readln(weight);

 write('Введите цену за 1 кг картофеля: ');

 readln(price);

 revenue := weight * price;

 write('Выручка составила: ', revenue);

end.

Объяснение:

program rev;  // Название программы

var  

 weight, price, revenue: integer;  // Создание целочисленных переменных:

weight - вес урожая, который собрал фермер;price - цена картофеля за 1 килограмм;revenue -  выручка с продажи картофеля.

begin  // Начало программы

 write('Введите количество урожая, которое собрал фермер(кг): ');  // Вывод сообщения в консоль

 readln(weight);  // Считываем с клавиатуры вес урожая

 write('Введите цену за 1 кг картофеля: ');  // Вывод сообщения в консоль

 readln(price);  // Считываем с клавиатуры цену картофеля за 1 килограмм

 revenue := weight * price;  // Рассчитываем выручку с продажи картофеля по формуле: выручка = вес * цена за 1 кг

 write('Выручка составила: ', revenue);  // Вывод сообщения в консоль и значение переменной revenue (выручка)

end. // Конец программы

4,6(55 оценок)
Ответ:
Kloloko
Kloloko
31.05.2023
Uses crt;
var
a:array[1..10]of integer;
b:array[1..10]of integer;
max,i,c,k:integer;
beginfor i:=1 to 10 do
a[i]:=random(20)-10;
for i:=1 to 10 do
if abs(a[i])>abs(max) then begin
max:=a[i];
c:=i;
end;
for i:=1 to 10 do
if (a[i]=max)and(i<>c) then begin
b[i]:=i;
k:=k+1;
end;
writeln('максимальный элемент по модулю=(',max,') номер этого элемента=(',c,')');
write('номера таких же элементов: ');
for i:=1 to 10 do
if b[i]>0 thenwrite(b[i],' ');
writeln('их кол-во:(',k,')');
writeln;
for i:=1 to 10 do
write(a[i],' ')
end.
4,5(38 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ