Написать Задачи как в кумире только в письменном ввиде: (ЗАДАЧИ ВЫБОР) 1. По введенному номеру определить день недели, например: ввели 1-Понедельник и тд.
2. Составить программу, которая в ответ на введеный возвраст выдаёт 3 варианта ответов: а) "Учишься в школе!", если возвраст меньше или равен 16 лет б) "Учишься в институте!", если возвраст от 17 лет до 23 лет в) "ты уже работаешь!" Если возвраст больше 23 лет.
(ЗАДАЧИ ЛИНЕЙНЫЙ АЛГОРИТМ)
3. Найдите произведение двух любых натуральных чисел
4. Найдите частное двух натуральных чисел
( ЗАДАЧИ НА ВВЕДЕНИЕ)
5. Составить программу, запрашивающию имя и при вводе "Саша" выдающию "привет", а при вводе любого другого " До свидания"
6. Составьте программу ю, которая в ответ на запрос о введении числа прибавляет к нему 1 , если оно меньше 100 и вычитает 1 , в противном случае
( )
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.
Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.