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

6. Какое служебное слово используется для того, чтобы выделить место переменным в памяти? 7. Какими типами можно описать действительные числа?

👇
Открыть все ответы
Ответ:
Zufar1618
Zufar1618
02.07.2021
ответ:

30

Объяснение:

Присваиваем переменной x значение 7:

x:=7;

Присваиваем переменной s значение 0:

s:=0;

Объявляем цикл от 1 до 3, который будет каждый раз выполнять команды введённые между begin и end:

for i:=1 to 3 do begin

Присваиваем переменной s значение текущей s + x, то есть просто прибавляем x:

   s:=s+x;

Присваиваем переменной x значение текущей x + 3, то есть просто прибавляем 3:

   x:=x+3;end;

Итак, x изначально равен 7, а s - 0. Потом идёт цикл, в котором к s прибавляется x, после чего к s прибавляется 3. Цикл небольшой, можно и пройтись для наглядности:

i = 1        s := 0 + 7 = 7              x := 7 + 3 = 10i = 2       s := 7 + 10 = 17           x := 10 + 3 = 13i = 3       s := 17 + 13 = 30         x := 13 + 3 = 16

Как мы видим, конечное значение s равно 30.

4,5(49 оценок)
Ответ:
Olechka77
Olechka77
02.07.2021

Если нужен паскаль:

1.

var

 a,b:integer;

begin

 readln(a,b);

 writeln(a,'+',b,'=',a+b);

 writeln(a,'*',b,'=',a*b);

end.

2.

var

 n,c,m,h:integer;

begin

 readln(n);

 m:=n div 60;

 c:=n mod 60;

 if m>=60 then

   begin

     h:=m div 60;

     m:=m mod 60;

     if m<>0 then

       if c<>0 then

         write(h,'ч ',m,'мин ',c,'с')

       else

         write(h,'ч ',m,'мин ')

     else

       if c<>0 then

         write(h,'ч ',c,'с')

       else

         write(h,'ч');

   end

     else

       if m<>0 then

         if c<>0 then

           write(m,'мин ',c,'с')

         else

           write(m,'мин ')

       else

         write(c,'с');

end.

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