Var a,b,k:integer;
begin
writeln('a, b:');
readln(a,b);
k:=0;
while a<>b do
begin
k:=k+1;
if a>b
then begin writeln(k,': ',b,'*',b); a:=a-b; end
else begin writeln(k,': ',a,'*',a); b:=b-a; end;
end;
k:=k+1;
writeln(k,': ',a,'*',a);
writeln('k = ',k);
end.
Пример:
a, b:
3 8
1: 3*3
2: 3*3
3: 2*2
4: 1*1
5: 1*1
k = 5
A, b, c = int(input())
v = a * b * c
print(v)
Произведения художественной литературы не является моделями
Program Frank;
const n=15;
Type mas=array[1..n] of integer;
var a:mas;i,k:integer;
begin
k:=0;
for i:=1 to n do begin
a[i]:=i;
if a[i] mod 10=5 then k:=k+1;
end;
writeln('Кол-во чисел,которые заканчиваются на 5:= ',k);
end.
Програма работает,лично проверил) Написана на языке PASCAL