Войти Регистрация Спроси ai-bota

30 определите значение переменной b после выполнения фрагмента алгоритма: a: =7 b: =0 да a=1? нет нет a: =a-15 b: = b+a в ответе должно получится 21

Ответ:

Qwerty555777999

08.10.2020 19:34

Var a,b: integer;
begin
a:=7;
b:=0;
while a<=1 then do
begin
a:=a-15;
b:=b+a;
end;
writeln(b);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

ЮлияСергеевна2

05.07.2021 20:37

Размер географической сетки 640x320. Какой объем видеопамяти в килобайтах необходим для хранения 8 цветного изображения?...

mariuaivanova1

24.08.2022 16:51

1!)Какие знания необходимы на этапе тестирования и отладки? 1) Знания из предметной области задачи 2) Знание того, на каком языке программирования была написана программа 3) Знание...

софия682

24.12.2021 05:46

Нужно ответить на эти во по информатике, на английском языке. 1. List the main components of media. 2. Give an example of a nonlinear and comment on multimedia. 3. Describe the advantages...

вкпа

05.10.2020 23:34

С++ Дана последовательность из N-чисел, вводимых с клавиатуры. 1. Найти максимальный элемент первой половины последовательности. 2. Найти произведение и количество отрицательных чисел...

анюта1335

24.02.2023 17:40

Написать программу, которая расставляет символы в pascal в алфавитном порядке (в объяснениями каждого действия) используя : string, char, ord,chr....

V1a9

24.02.2023 17:40

Все только решите даны целые числа a1, an. оставить ее без изменения, если она по неубыванию или по невозрастанию; в противном случае удалить из последовательности те члены, порядковые...

bochinskaya06

21.12.2021 11:34

Максимум за дан двумерный массив вещественных чисел. создать одномерный массив, содержащий произведение отрицательных элементов каждой строки. найти индекс минимального элемента....

1Haritoshka

21.12.2021 11:34

Паскаль. 1. вывести в столбик все двузначные числа. (1 цикл, 1 переменная) 2. из тех же чисел вывести только те, что заканчиваются на 5. 3. вывести в ряд 15 рандомных чисел от 10 до...

hgfgff1Fgfh

29.09.2021 04:57

Найдите ошибки ; надо program mass; uses crt; var b: array [1..10] of integer; i: real; begin clrscr; randomize; for i: =1 to 10 do begin b: =1+random (10); write (‘b[‘: 3, i,’]=‘,...

Sofa1351

29.09.2021 04:57

Внекотором каталоге хранится файл .txt. в этом каталоге создали подкаталог с именем 8_class и переместили в него фаил .txt. после чего полное имя файла стало d: .txt. каким был путь...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку