Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, ..., 10 кг конфет.Program p1var i,s:real BeginWriteLn ('введ
Дано вещественное число — цена 1 кг конфет. <span>Вывести стоимость 1, 2, ..., 10 кг конфет. Program p1 </span>var i,s:real Begin WriteLn ('введите стоимость 1 кг конфет') <span>For i:=1 to 10 do WriteLn дальше помогите</span>
Program ads;
var
i :integer;
z,x,a :real;
begin
writeln('Введи цену за килограмм');
readln(z);//Узнаём цену за 1 кг.
a:=0.1;//начальный вес 100 грамм.
for i :=1 to 10 do begin
write('Цена за ');
write(a:5:2); //Выводим вес
x:=z*a;//Высчитываем цену за a грамм
a:=a+0.1;//прибавляем 100 грамм
write(' килограмм равна - ');
write(x:5:2);//Выводим цену за вес
writeln;
end;
readln;
end<span>.</span>
Program pr1; var x,y, nod:integer; begin readln(x,y); repeat if x > y then x:=x mod y else y:=y mod x until x*y=0; nod:=x+y; writeln('НОД=', nod); <span>end.
program pr2; var i,n,sum:integer; begin readln(n); sum:=1; for i:=1 to n do if i mod 2 = 0 then inc(sum,i); writeln(sum); <span>end.</span></span>