Лови. может напутал в составных каши, не повар хд
Всё довольно просто. Вещественные в си++ это double и мы их обьявляем и сразу задаём их значение.
Далее цикл while задаём внутренее условие аналогичное коду задания.
Далее просто переписываем всё из кода задания.
В конце вывод.
Код:
#include <iostream>
using namespace std;
int main() {
double a=0,P=1;
while(a <= 20){
P*=a;
a+=2;
}
cout << P;
}
Program p1;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
WriteLn(i);
end.
===============
program p2;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := n downto 1 do
WriteLn(i);
end.
===============
program p3;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 3 = 0 then WriteLn(i);
end.
===============
program p4;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 3 = 0 then WriteLn(i);
i := i + 1;
end;
end.
===============
program p5;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 2 = 0 then WriteLn(i);
end.
===============
program p6;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 2 = 0 then WriteLn(i);
i := i + 1;
end;
end.
Все зависит от версии языка Паскаль (см. вложения).
StrToInt определено только в PascalABC.NET, его предшественнике, "умершем" 10 лет назад - Pascal ABC и в Borland Delphi - также давно (с 2008 года) закрытом проекте корпорации Borland Inc.
Вы не указали язык программирования, поэтому ответ выбирайте по вложениям.