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

1)определите значение переменной «a» после выполнения фрагмента программы: a : = 10 если a < 5 то a : = a + 12 иначе a : = a - 7 все 2)определите значение переменной «a» после выполнения фрагмента программы: a : = 10 если a > 5 то a : = a + 12 иначе a : = a - 7 все если a > 5 то a : = a + 12 иначе a : = a - 7 все 3)определите значение переменной «a» после выполнения фрагмента программы: a : = 10; b : = 5 если a > 5 и a < b то a : = a - 5 все

👇
Ответ:
tven1808
tven1808
11.11.2021

1)3 т.к. а=10

Это не меньше пяти и значит из а надо вычесть 7

2)

a := 10

//А стало равной 10

если a > 5

//10>5

то a := a + 12

//Значит выполняем это(к а прибавим 12 и получим 22

иначе a := a - 7

//Это игнорим

все

если a > 5

//22>5

то a := a + 12

//Выполним этот кусок: к а прибавим 12, значит а равно 34

иначе a := a - 7

все

ответ:34

3)

a := 10; b := 5

//А равно 10, б пяти

если a > 5 и a < b

//А больше 5, но а не меньше чем б, значит ничего не изменяем

то a := a - 5

все

А осталась прежней, 10

4,6(40 оценок)
Открыть все ответы
Ответ:
Lizka22855
Lizka22855
11.11.2021
//прога на Pascal`e
type
  myrec = record
  rost : byte;
  ves : byte;
  end;
var
  mas : array of myrec;
  n, i : byte;
  sumves, sumrost : longint;
begin
write ('Введите кол-во учеников: ');
readln (n);
setLength (mas, n);
  for i:=0 to n-1 do
  begin
  write ('Введите вес ', i+1, '-го ученика: ');
  readln (mas[i].ves);
  inc (sumves, mas[i].ves);
  write ('Введите рост ', i+1, '-го ученика: ');
  readln (mas[i].rost);
  inc (sumrost, mas[i].rost);
  end;

write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n)
end.
4,7(84 оценок)
Ответ:
123GEV
123GEV
11.11.2021
Microsoft QBasic 1.0

CLS
x = 0
DO WHILE x <= 2.1001
   PRINT x, COS(x)
   x = x + .1
LOOP

Результат
 0             1
 .1            .9950042
 .2            .9800666
 .3            .9553365
 .4            .921061
 .5            .8775826
 .6            .8253356
 .7            .7648422
 .8000001      .6967067
 .9000001      .6216099
 1             .5403022
 1.1           .453596
 1.2           .3623576
 1.3           .2674986
 1.4           .1699669
 1.5           7.073697E-02
 1.6          -2.919978E-02
 1.7          -.1288448
 1.8          -.2272024
 1.9          -.3232899
 2            -.4161471
 2.1          -.5048462
4,7(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ