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

Определите значение переменной а после выполнение алгоритма: Пример №1
a := 4
b := 10
a:= b - a *2
b := 24 / a*4

Пример №2
Определите значение переменной а после выполнение алгоритма:
a := 5
b := 4
b := 100 – a*b
a:= b /16*a

Пример №3
Определите значение переменной а после выполнение алгоритма:
a := 1
b := 24
a := b – a*4
b:= a*2 - b

👇
Ответ:

1 2
2 80
3 20

Объяснение:

#1

Код на python

a = 4

b = 10

a = b - a * 2

b = 24 / a *4

print(a)

#2
Код на python
a = 5

b = 4

a = 100 - a * b

b = b/16*a
print(a)

#3
Код на python
a = 1

b = 24

a = b - a*4

b = a*2-b

print(a)

4,7(83 оценок)
Открыть все ответы
Ответ:
stalina2705
stalina2705
03.02.2022
Вариант с вводом элементов:
Program prog;
uses crt;
var a: array [0..999] of integer;
    i, k, n: integer;
begin
clrscr;
write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
write('a[',i,'] = ');
readln (a[i]);
end;

for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k = ', k);
end.

Вариант с рандомными элементами:
Program prog;
uses crt;
var a: array [0..999] of integer;
    i, k, n: integer;
begin
clrscr;
randomize;

write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln('a[',i,'] = ',a[i]);
end;

for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k =' , k);
end.
4,8(26 оценок)
Ответ:
Влад5055
Влад5055
03.02.2022
Program prog;
uses crt;
var a,b,c,x,y:real;

begin
clrscr;

write('Ребро параллелепипеда а = ');
readln(a);
write('Ребро параллелепипеда b = ');
readln(b);
write('Ребро параллелепипеда c = ');
readln(c);

writeln;
write('Сторона отверстия х = ');
readln(x);
write('Сторона отверстия y = ');
readln(y);

writeln;
if ((a<x) and (b<y)) or
((a<x) and (c<y)) or
((c<x) and (b<y)) or
((b<x) and (a<y)) or
((c<x) and (a<y)) or
((b<x) and (c<y)) then
writeln('Может пройти') else  writeln('Не может пройти');

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