//Pascal
//1)
var N, mult: longint;
begin
mult := 1;
write('Введите конечное число: '); readln(N);
repeat
write(mult, ' ');
mult := mult * 5;
until (mult > N);
readln;
end.
//2)
var
i: byte;
sum: integer;
begin
sum := 0;
for i := 1 to 49 do
if i mod 2 <> 0 then sum := sum + i;
writeln('Sum = ', sum); readln;
end.
Ответ:
Г
Объяснение:
Word - Текстовый процессор, предназначенный для создания, просмотра и редактирования текстовых документов
SuperCalc — электронная таблица, выпущенная Sorcim в 1981
Quattro Pro — офисная программа, редактор электронных таблиц
Excel - программа для работы с электронными таблицами
Если не тот язык, укажите какой нужен.
var a: integer;
f: real;
begin
write('Введите а: '); readln(a);
if(a <= 0) then f := sqr(a) + 4*a + 5
else f := 1 / (sqr(a) + 4*a + 5);
writeln('f(', a, ') = ', f);
end.