Алгоритм решения задачи. 2.Нахождение:а) круг в квадрате;

1. Ввод круга и квадрата;

2. Нахождение:а) круг в квадрате;

б) квадрат в круге?

Рис._− Блок-схема алгоритма

Листинг программы

Program primer15;

Var a,r,s1,s2:real;

Begin

Write('введите площадь круга и квадрата');

Readln(s1, s2);

A:=sqrt(s2);

R:=sqrt(s/3.14);

If (r<a/2) then writeln (' круг уместится в квадрате')

Else writeln (' круг не уместится в квадрате');

If (a*sqrt(2))>(4*r) then writeln ('квадрат уместится в круге')

Else Writeln('квадрат не уместится в круге');

Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);

Readln;

End.

Задача 6.2

Даны пять целых числа. Вывести на экран те из них, которые являются чётными.

Алгоритм решения задачи

1. Ввод четных чисел

Схема….

Листинг программы

program primer16;

var i:integer;

Begin

For I:=1 to 5 do

Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);

Readln;

End.

Условный оператор 2.