( ) Написать программы на языке паскаль
Написать программы к задачам:
1. Напечать 50 раз слово «Информатика», использовать оператор for.
2. Найти значения квадратов чисел: 15, 16, 17, 18, 19, 20, использовать оператор for.
3. Вычислить сумму

Первоначально присвоить S: = 0, n: = 1 (число, которое находится в знаменателе), использовать оператор while.
4. Необходимо подсчитать целое кол-во отрезков длиной 1,5 м получающихся из бруска длиной 20 м. Первоначально присвоить i:=0 - кол-во отрезков, L:=0 - суммарная длина отрезков. Использовать оператор repeat.

var a,b: integer;

s: real;

begin

write('введите 2 числа');

readln(a,b);

s: = (sqr(a)+sqr(b))/2;

writeln(s);

end.

Пошаговое объяснение:

Извините я не знаю так как сегодня ответы сайт не принемает я организатор этого сайта ЗНАНИЯ ПЛЮС меня извинить

ответ:вот держи

Объяснение:

assessment = int(input("какая у вас оценка?:"))

if assessment >= 5:

   print("Молодец")

if assessment == 4:

   print("Хорошо")

if assessment <= 3:

   print("Подтянись")

ответ: Ну тогда например 45 и вот Пошаговое объяснение:

Объяснение:

Во вложении

мы тут не вундеркинды

Объяснение:

я не знаю

извиняюсь за кривой рисунок, но он правильный

в 3 задании какая формула суммы?

Объяснение:

program zadanie_1;

var i: integer;

begin

 for i:=1 to 50 do

   writeln('Информатика');  

end.

program zadanie_2;

var i: integer;

begin

 for i:=15 to 20 do

   writeln(i,'^2 = ', sqr(i));  

end.

program zadanie_4;

var i: integer;

   L: real;

begin

 i := 0;

 L := 0;

 repeat

   L := L + 1.5;

   i := i + 1;

 until L+1.5>=20;

 writeln('Получится ',i,' отрезков длиной ',L,' метров.');

end.

Var

A: integer;

Begin

Write('Введите любое число:'); Readln(A);

If A<0 then Write('Отрицательное число') else Write('Положительное');

Readln;

End.

Объяснение:

Program nazvanie;

Uses Crt;

Var x: integer;

y: real;

Begin

write('Введите x ')';

read(x);

y:=1/x;

write('y = ', y);

end.

Объяснение:

pascal. В 3 задании не понятно, какая формула для суммы...

Объяснение:

program zadanie_1;

var i: integer;

begin

 for i:=1 to 50 do

   writeln('Информатика');  

end.

program zadanie_2;

var i: integer;

begin

 for i:=15 to 20 do

   writeln(i,'^2 = ', sqr(i));  

end.

program zadanie_4;

var i: integer;

   L: real;

begin

 i := 0;

 L := 0;

 repeat

   L := L + 1.5;

   i := i + 1;

 until L+1.5>=20;

 writeln('Получится ',i,' отрезков длиной ',L,' метров.');

end.