Задание 1.

Написать код программы на Паскале для решения задачи.

Дан прямоугольный треугольник. В треугольнике высота, которая опущена из вершины прямого угла, равна 12 см, а один из катетов равен 24 см. Найти длину гипотенузы треугольника.

На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы.

Задание 2.

Написать программу на Паскале, в которой переменной Y присваивается значение наименьшей из четырех величин A, B, C и D. Входные данные задать с оператора ввода с клавиатуры.

На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы.

Задание 3.

Написать программу на Паскале для решения задачи.

Найти сумму n элементов следующего ряда чисел:

50, 45, 40, 35, 30…

Количество элементов (n) ввести с клавиатуры.

На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы.

Задание 4.

Написать программу на Паскале для решения задачи.

Вычислить произведение модулей элементов одномерного массива из 20 чисел, расположенных после первого отрицательного элемента. Входные данные задать самостоятельно.

На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы.

if8                                                  

program raf105;

uses robot;

var l,d,r,u: boolean;

begin

task('if8');

l:= wallfromleft;

d:= wallfromdown;

r:= wallfromright;

u:= wallfromup;

if l

 then begin right; paint; right; paint;

   if freefromright

     then begin right; paint; end

   end;

if d

 then begin up; paint; up; paint;

   if freefromup

     then begin up; paint; end

   end;

if r

 then begin left; paint; left; paint;

   if freefromleft

     then begin left; paint; end

   end;

if u

 then begin down; paint; down; paint;

   if freefromdown

     then begin down; paint; end

   end;

end.

if9                                                  

program raf105;

uses robot;

var l,r: boolean;

begin

task('if9');

right; r:= wallfromdown;

left;

left; l:= wallfromup;

right;

if r and l

 then begin up; paint; down; down; paint; up; end

 else paint;

end.

if10                                                

program raf105;

uses robot;

var l,r: boolean;

begin

task('if10');

right; r:= cellispainted;

left;

left; l:= cellispainted;

right;

if r or l

 then begin up; paint; end

 else paint;

end.

Главная мысль рассказа Г.В.Черноголовиной "Сказка об одном зернышке" -это память о людях,которые ушли на войну и не вернулись,но остались  с нами в наших сердцах.Храня воспоминания о близких,мы вспоминаем лучшее и эти воспоминания дарят нам радость.Мы должны помнить о тех,кого с нами уже нет и чтить их память.

 Слушая сказку,бабушка вспоминала былое-сказочника мужа и маленького сына,ждущего новую сказку.Бабушка Ксеня была уверена,что колос не простой,ведь это чудо,спустя столько лет услышать живой голос деда Михея,погибшего на войне.

Объяснение: