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
Значёк это файл с расширением ico. Его можно использовать как иконку для приложение, ярлыка , как иконку любого типа файлов в windows. Ярлык это файл с определенным расширением lnk. Предполагается что при открытие ярлыка произойдет открытие файла на который ссылается ярлык.
Var
a: array[1..10] of integer;
i, count: integer;
begin
for i:=1 to 10 do
readln(a[i]);
count:=0;
for i:=1 to 10 do
if a[i] < 70 then
inc(count);
writeln(count);
end.
И НА СОЛНЦЕ ЕСТЬ ПЯТНА.
таблица кодировок ascii windows 1251
Var a, b: integer;
begin
write('Введите a, b>>');
read(a, b);
if a<b then
begin
while (b-1>a) do
begin
b:=b-1;
write (b, ' ');
end;
end
else write('Неверные условия')
<span>end.</span>