Дано фрагмент електронної таблиці. яке значення отримає клітинка а5? а в 1 = в1+3 2,5 2 =( а1+2)*2 8 3 = в2: 2 5 4 =а2-в3 а2 5 = а4*в1-в4 а б в г 25 4 10 3,5
Программа для 1. var n,b,s:integer; begin Write('Введите натуральное число и значение b: '); Read(n,b); if n>b then Writeln('Неверно') else begin s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10 end; if s mod 2=0 then Writeln('Верно') else Writeln('Неверно') end end.
Программа для 2. var k,m,n,b,s:integer; begin Write('Введите натуральное число и значения m,n: '); Read(k,m,n); if k mod n <> 0 then Writeln('Неверно') else begin s:=0; while k>0 do begin s:=s+k mod 10; k:=k div 10 end; if s>m then Writeln('Верно') else Writeln('Неверно') end end.
Есть две переменные а и б
Изначально а=0, б=2364
Пока б будет больше 0 он будет выполнять следующие действия:
если остаток от б/10 меньше нуля тогда к А прибавляется этот остаток.
Б делим на 10 и повторяем
Вывод А
Сама задача вычисляет сумму цифр в числе которые меньше 5.
Дано Б = 2364.
Задача смотрит остаток от 2364 mod 10 = 4
4 меньше пяти соответственно в А=4
далее 2364/10=236
теперь 236 mod 10 = 6
6 больше пяти поэтому ниче не делаем
236 div 10 = 23
теперь 23 mod 10 = 3
3 меньше пяти соответственно А=А+3 = 4+3 = 7
23 див 10 = 2
теперь 2 mod 10 = 2
2 меньше 5 соответственно А=А+3 = 7+2 = 9
2 див 10 = 0
Так как Б=0 программа выходит из цикла и выводит А, т.е. число 9