Регистрация
tinafortinova78
10.01.2021 19:29
Информатика
Есть ответ 👍

Паскаль: дана последовательность целых положительных чисел, заканчивающаяся числом, разряд единиц которого равен нулю. определите, сколько чисел в последовательности, не считая данного числа.

102
251
Посмотреть ответы 2

Ответы на вопрос:

Зайчонок512
Зайчонок512
4,5(29 оценок)
Vari, a: longint; beginread(a); i : = 1; while (a mod 10 < > 0) doinc(i); writeln('чисел в последовательности: ', i); end.
Unicornssss
Unicornssss
4,6(85 оценок)

var a,b,c,d,e,f,k,m:integer;

begin

writeln('A, B:');

readln(a,b);

writeln('C, D:');

readln(c,d);

e:=a*100+b;

f:=c*100+d;

k:=e div f;

m:=e-k*f;

writeln('k = ',k);

writeln('Останется: ',m div 100,' гр ',m mod 100,' коп');

end.

Объяснение:

Популярно: Информатика