Program A;
var a,b,c,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
begin
write('введите число:');
readln(b);
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
program B;
var a,b,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
b:=random(300)+1;
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится только кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно. на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
<span>В Case добавь флаги для обозначения нажатия стрелки. Потом работай с этими флагами.</span>
A = 5.
b = 5 + 2 = 7.
a = (5 + 2) * (7 - 3) = 7 * 4 = 28.
b = 28 div 5 = 5.
a = 28 mod 5 = 3.
a = 3 + 1 = 4.
b = (4 + 14) mod 7 = 18 mod 7 = 4.
Ответ: 4.
1001011 =
=<span> 64 + 0 + 0 + 8 + 0 + 2 + 1 = 75</span>