Var z:real; i:integer;
begin
writeln('Введите цену одного килограмма и нажмите <enter> ');
writeln(' (копейки от рублей отделяйте точкой) ');
readln(z); writeln('Вес (граммов) Cтоимость (руб.) ');
for i:=1 to 10 do writeln(i*100:13,z*i/10:10:2); readln
<span>end. </span>
Program abc;
var a, b, c: integer;
begin
a:=15;
b:=50;
c:=35;
write(a+b+c, 'Всего учеников');
end.
Это на компе надо делать
Эт училка еб*нутая ,передай ей
var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.
Ответ:
Для задач с условием. Проверяется истинность данного условия.