1.Начало
2.Налить воды в ведро с 7
литрами
3.Налить воды в ведро 5 литрами.
4.Конец.
Преобразуем
(i*i)/(i/2) = 2*i*i/i = 2*i
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(10,i->2*i,1); a.Println;
end.
<u>Результат</u>
2 4 6 8 10 12 14 16 18 20
var s,summ:integer;
begin
writeln("До какого числа считать");
readln(s);
for i:=1 to s do
if i mod 5=0 then
summ:=summ+i;
writeln(summ);
end.
1)Алгоритм в паскале, если все скорости известны
program avto;var a,b,c,d:real;beginwriteln ('Введите 3 скорости автомобиля');read (a,b,c);d:=(a+b+c)/3;write ('Средняя скорость автомобиля:', d);end.