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

Pascalabc.net написать программу ввода-вывода. 1. разработать программу, которая предлагает пользователю ввести с клавиатуры значения трех переменных х1, х2, х3 (оператор 2. выводит введенные значения в строчку, отводя на каждое число 6 позиций. при этом необходимо вывести имена соответствующих переменных. 3. присваивает переменным новые значения 42, 7 и 34 соответственно. 4. выводит новые значения переменных в столбик, отводя для каждого значения 4 позиции. при этом необходимо вывести имена соответствующих переменных.

👇
Ответ:
Дамирка2288
Дамирка2288
27.03.2020
Var
 x1,x2,x3: real;
 begin
 writeln ('vvedi tri cisla');
 readln(x1,x2,x3);
 write ('x1=',x1:6,'x2=',x2:6,'x3=',x3:6);
 x1:=42;
 x2:=7;
 x3:=34;
 writeln;
 writeln ('x1=',x1:4);
  writeln ('x2=',x2:4);
   writeln ('x3=',x3:4);
   end.
4,4(45 оценок)
Открыть все ответы
Ответ:
мим221
мим221
27.03.2020

116

Объяснение:

d = 100

для k от 5 до 12 выполнить

Действия в цикле:

1)  d = d - 6

2) d = d + 8

Вывод d

Цикл выполнится 8 раз

количество повторов в цикле равно конечное значение (12) переменной  счётчика (k) минус начальное  значение (5)  переменной  счётчика (k) плюс 1

количество повторов в цикле = 12 - 5 + 1 = 7 + 1 = 8

В цикле переменная d сначала уменьшается на 6, а затем увеличивается на 8.

В сумме эти действия (-6 + 8 = 2) увеличивают переменную d на 2.

Следовательно за весь цикл переменная d увеличится на 2 * 8.

Т.к. в начале программы d = 100, то

d = 100 + 2 * 8 = 100 + 16 = 116

4,5(75 оценок)
Ответ:
Kozlov24ivan122
Kozlov24ivan122
27.03.2020
1)
Begin
var a,b:integer;
WriteLN('Введите градус: ');
ReadLN(a);
if a > 600 then begin
WriteLN('Пожарная ситуация')
end;
if b < 600 then begin
WriteLN('Рабочая ситуация')
end;
end.
2)
Begin var a:integer;
WriteLN('Введите номер дня недели: ');
ReadLN(a);
if a = 1 then begin
WriteLN('Понедельник-Количество уроков: 6')
end;
if a = 2 then begin
WriteLN('Вторник-Количество уроков: 6')
end;
if a = 3 then begin
WriteLN('Среда-Количество уроков: 6')
end;
if a = 4 then begin
WriteLN('Четверг-Количество уроков: 6')
end;
if a = 5 then begin
WriteLN('Пятница-Количество уроков: 6')
end;
if a = 6 then begin
WriteLN('Суббота-Количество уроков: 6')
end;
end.
4,5(9 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ