Проблема: Социальные сети отнимают много времени. Забивают голову ненужной информацией. Из-за них мы реже стали видится с друзьями, теперь на первом месте виртуальное общение. И все в таком духе
Var a,b,nod,k:integer;
begin
readln(a,b);
k:=0;
while (a<>0)and(b<>0) do
begin
if a>b then a:=a mod b else b:=b mod a;
k:=k+1;
end;
nod:=a+b;
writeln(nod,' ',k);
end.
Пример:
21 14
7 2
Алгоритм это система последовательных шагов с определенным правилом,например:
1.решить задачу
2.выписать ответ
3.объяснить ответ
или
1 налить в стакан воду
2 выпить воду и т.д.
Правильный ответ: 4........
Var a,b,c,m,l,s1,s,k:real;
begin
write('Длина, ширина и высота комнаты: ');
readln(a,b,c);
write('Длина, ширина и цена одного рулона: ');
readln(l,m,s1);
k:=2*(a+b)*c/m/l;
if k-int(k)>0 then k:=k+1;
k:=int(k);
s:=s1*k;
writeln('Потребуется рулонов: ',k);
writeln('Стоимость покупки: ',s)
<span>end.</span>