var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
По логике:
Ветер гуляет по морю
Ветер подгоняет кораблик
Program z;
var
n,a,s:integer;
begin
n:=20; //Стоимость ручки
Writeln('Сколько ручек вы хотите купить?');
readln(a);
s:=n*a;
writeln('Стоимость покупки ',s,' руб');
end.
var
i, n, k, max: <em>integer</em>;
begin
readln(n);
max := Integer.MinValue;
for i := 1 to n do
begin
readln(k);
if (k mod 4 = 0) then
max := System.Math.Max(max, k);
end;
writeln(max);
<span>end.</span>
Сделал расчёт и суммы цифр в обоих числах, и сумму цифр первого плюс второе число. Ненужное удалите уж.
Подсчёт суммы цифр сделал независимым от длины числа (хоть сколькозначные вводите, вплоть до максимального целого в Кумире).
алг
нач
цел а,б,н,ас=0,бс=0
лит ат,бт
вывод 'введите целое трёхзначное число: '
ввод а
вывод 'введите целое четырёхзначное число: '
ввод б
ат := цел_в_лит(а)
нц для н от 1 до длин(ат)
ас := ас + Цел(ат[н],0)
кц
вывод 'сумма цифр трёхзначного= ', ас, нс
бт := цел_в_лит(б)
нц для н от 1 до длин(бт)
бс := бс + Цел(бт[н],0)
кц
вывод 'сумма цифр четырёхзначного= ', бс, нс
вывод 'сумма цифр трёхзначного плюс четырёхзначное число= ', ас+б
кон