Может, второе вот так?
А в решении Аштона лучше так напиши
readln(a, b);
writeln('P = ', 2 * (a + b));
writeln('S = ', a * b);
а то будут дополнительные вопросы к тебе у препода.
Ну, раз заменять предложение, то...)
var a: string;
begin
readln(a);
if (a = 'Не то предложение') then a := '...';
writeln(a);
<span>end.</span>
1пн-5уроков.
2- 6уроков
3-7уроков
4-6уроков
5-5уроков
Program Prices;
const max : integer = 10;
var
price : real;
i : integer;
begin
{ С использованием цикла FOR }
writeln('Используем цикл FOR');
write('Введите стоимость 1-го кг конфет: ');
readln(price);
for i:=1 to max do
begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
end;
{ С использованием цикла REPEAT }
i:=1;
writeln;
writeln('Используем цикл REPEAT');
repeat
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
until(i>max);
{ С использованием цикла WHILE }
i:=1;
writeln;
writeln('Используем цикл WHILE');
while(i<=max) do begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
end;
end;
<span>a = int(input("a = "))
sise = <span>0
</span>for i in range(1,a+1,2):
print(i)
sise += i
print("Suma ",sise)</span>