Регистрация
dashulyamikhay
05.03.2023 05:25
Информатика
Есть ответ 👍

Проверьте программы представленных задач, исправьте ошибки. 1. Напишите программу, которая выводит на экран 10 строк следующего содержания: «**++==++**».
Решение:
program for1;
var a:integer
begin
for i:=1 to 5 do
writeln('**++==++**');
end.

2. Напишите программу вывода квадратов первых десяти натуральных чисел.
Решение:
program for2;
var i, x: integer;
begin
for i:=1 to 10
begin
x:=x*x*x;
writeln( ' x ' );
end;
end.

3. Напишите программу нахождения суммы 1 + 1/2 + 1/3 +...(N слагаемых).
Решение:
program for3;
var i, n: integer;
s: string;
begin
write('n='); readln(n);
s:=10;
i:=1 to n
s:=s+1/i;
writeln('s=', s);
end.

253
417
Посмотреть ответы 1

Ответы на вопрос:

prapra2017oz2bo2
prapra2017oz2bo2
4,5(21 оценок)
Var a,b,c: real; begin   readln(a,b,c);   if (a< > 0) and (a+b> c) then writeln ((a+b+c)/2)       else           writeln('неверные входные значения'); end.

Популярно: Информатика