Составить алгоритм сложения двух целых чисел F и D , вводимых с клавиатуры. Результат сложения записать в виде переменной P . По данному алгоритму написать программу в Паскале.

Алгоритм

алг сложение
цел F, D,P
нач
ввод F
ввод P
D:=F+P
вывод P
кон
алг сложение
цел F, D,P
нач
ввод F
ввод D
P:=F+D
вывод P
кон
алг сложение
цел F, D,P
нач
ввод F
ввод D
P=F+D
вывод P
кон

Программа в Паскале

program summa;
var
F, D,P:integer;
begin
readln(F);
readln(D);
P:=F+D;
writeln(F);
end.
program summa;
var
F, D,P:integer;
begin
readln(F);
readln(D);
P:=F+D;
writeln(P);
end.
program summa;
var
F, D,P:integer;
begin
readln(F);
readln(D);
P:=F+D;
writeln(P);

революция 1917 года и великая отечественная война (1941-1945)

(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу

есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.

и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке  if k> =4 then write(i: 3); уберите знак >   .

1 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 1 to i do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

2 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 2 to (i-1) do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

50 страниц.= 50*20 строк = 50*20*10 символов = 50*20*10 байт = 10 000 байт

10 картинок=10*100*200 пикселей = 10*100*200*3 байта = 600 000 байт