Определите значение целочисленных переменных а и b после выполнения фрагмента программы: а: = 1235; b: = (а div100) + 25; а: = (а mod 100) – b;
5-9 класс
|
а=-2
б=37
должно быть так, никак иначе
Другие вопросы из категории
оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Пример работы программы:
Входные данные Выходные данные
14 168
24
144
22
12
0
var n, s: integer;
begin
n := 1;
s := 0;
while n <= 101 do begin
s := s + 7;
n := n + 1
end;
Читайте также
(a div 10) + 14;
a := (b mod 10) + 2;
2) Определите значение целочисленных переменных a и b после выполнения фрагмента программы:
a := 1819;
b := (a div 100)*10+9;
a := (10*b–a) mod 100;
3) Определите значение целочисленных переменных a и b после выполнения фрагмента программы:
a := 42;
b := 14;
a := a div b;
b := a*b;
a := b div a;
4) Определите значение целочисленных переменных x, y и t после выполнения фрагмента программы:
x := 5;
y := 7;
t := x;
x := y mod x;
y := t;
5) Определите значение целочисленных переменных a и b после выполнения фрагмента программы:
а :=6*12 + 3;
b :=(a div 10)+ 5;
a :=(b mod 10)+ 1;
if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8
2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4
b: = (а div1000) + (a mod 100);