В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
lolshik009
lolshik009
23.05.2023 23:18 •  Информатика

Проверьте, является ли частное от деления суммы произвольных пяти чисел, введенных с клавиатуры, на разность двух последних из них целым числом. составить блок систему и qbasik

Показать ответ
Ответ:
Tomrico11
Tomrico11
19.08.2022 19:01

1)

Program p1;

Var a,b,c,z: real;

Begin

Write('Введите 1 число ');

readln(a);

Write('Введите 2 число ');

readln(b);

z:=frac(a);

c:=frac(b);

if (a > 99) and (z = 0)  then Writeln(a);

if (b > 99) and (c = 0)  then Writeln(b);

End.

*функция frac() берет от вещественного числа дробную часть

2)

Program p1;

Var a, i, n, k: integer;

Begin

Write('Введите количество чисел последовательности: ');

readln(n);

k:=1;

For i:=1 to n do begin

readln (a);

if (a mod 3 =0) then k:=k*a*a;

end;

Writeln('Произведение квадратов чисел, кратных трём - ',k);

End.

0,0(0 оценок)
Ответ:
KUROCHKA777
KUROCHKA777
03.09.2021 16:03

Представим, что мы считаем сами так, как компьютер:

1) а:=1; b:=1;

  выполняем программу: а:=а+1, т.е. а = 1+1 = 2; b:=1*3 =3 - это 1-й раз;

  проверяем условие b<a, т.е. 3 <2 - ложно, значит, больше данная последовательность операторов выполняться не будет.

ответ: 1 раз.

2) s:=0 ; n:=0;

   проверяем условие n<5, т.е. 0<5 - верно, значит теперь s:=s+2 =0+2=2, n:=n+1=0+1=1 - 1-й раз;

   проверяем условие n<5, т.е. 1<5 - верно, значит теперь s:=s+2 =2+2=4, n:=n+1=1+1=2 - 2-й раз;

   проверяем условие n<5, т.е. 2<5 - верно, значит теперь s:=s+2 =4+2=6, n:=n+1=2+1=3 - 3-й раз;

   проверяем условие n<5, т.е. 3<5 - верно, значит теперь s:=s+2 =6+2=8, n:=n+1=3+1=4 - 4-й раз;

   проверяем условие n<5, т.е. 4<5 - верно, значит теперь s:=s+2 =8+2=10, n:=n+1=4+1=5 - 5-й раз;

    проверяем условие n<5, т.е. 5<5 - ложно, значит выполнения фрагмента программы больше не будет.

ответ: 5 раз.

3) оператор цикла будет выполнен для х=10, х=11 и х=12, т.е. 3 раза.

ответ: 3 раза.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота