Var
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
<span>end</span>
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.
<u>Пример</u>
24 18 -25 14 6 11 0
S=8
//1)
#include
using namespace std;
int main() {
int x;
int a=15;
int Y=x*x+a*x;
cin>> x;
cout< return 0;
}
//2)
#include
using namespace std;
int main() {
int x;
int a=5;
int b=1;
int Y=x*x*x-a*x+b;
cin>> x;
cout< return 0;
}
//3)
#include
using namespace std;
int main() {
double x;
int a=3;
int b=1;
double Y = x*x*x-a*x-b;
cin>> x;
if(Y>0 && Y <= 25){
cout<
return 0;
}
Console.WriteLine("Введите расстояние до пункта ");
double rast = Convert.ToDouble(Console.ReadLine());
Console.WriteLine("Введите расход в литрах ");
<span>double rashod = Convert.ToDouble(Console.ReadLine());
</span>Console.WriteLine("Введите стоимость бензина ");
<span>double benzin = Convert.ToDouble(Console.ReadLine());
</span>
cena = benzin * rashod * rast;
Console.WriteLine(cena);
либо я чето не понимаю, либо она так должна быть
расход горючего на все 61 км? задача некорректно составлена
но допустим, что она такая какая есть