Может я не заметил, но вроде отсутствует переменная "creditum"
1) r=187,5
a=9
d=63
2) var a,b,c,d,e:integer;
sr:real;
begin
writeln('Оценка за первый опрос');
read(a);
writeln('Оценка за второй опрос');
read(b);
writeln('Оценка за третий опрос');
read(c);
writeln('Оценка за четвертый опрос');
read(d);
writeln('Оценка за пятый опрос');
read(e);
sr:=(a+b+c+d+e)/5;
writeln('Среднее значение равно ',sr);
end.
3)var a,b,d, dengi,ostatok: integer;
begin
writeln('Количество денег у человека');
read(dengi);
writeln('Стоимость перчаток');
read(a);
writeln('Стоимость портфеля');
read(b);
writeln('Стоимость галстука');
read(d);
ostatok:=dengi-a-b-d;
writeln('Остаток от изначальной суммы равен ',ostatok);
end.
Наливаем 3 литра - переливаем в 8 л. кувшин.
<span> Снова набираем и переливаем в 8 л кувшин.
</span>
<span> Наливаем снова и переливаем в 8 литровый кувшин 2 литра, а в 3-х литровом остался 1 л. </span>
<span> Из 8 л все выливаем, а туда переливаем 1 л.
</span>
<span> А теперь два раза наполняем 3- х л. кувшин и доливаем по 3 литра в 8 л. Будет 7 литров
как-то так=)))
</span>
<span>var a,b: integer;
function NOD(x,y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
</span><span>begin
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.</span>
Ответ:
16
Объяснение:
С 61 по 64 - 4 процента щупалец
При условии, что каждое щупальце занимает 4%(так получается наименьшее допустимое кол-во щупалец) мы получим, что их 25.
Где на 60% идёт 60/4=15 щупальце.
А на 64 заканчивается 16.