Что бы найти пложадь круга надо число пи умножить на радиус в квадрате например 3,14×(2×2)=12,56
а про триугольник либо забыл либо не проходил
1)))))))))
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 2 = 0
then
Writeln('Число чётное')
else
Writeln('Число не чётное');
readln;
end.
2))))))))))))
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 3 = 0
then
Writeln('Число делится на 3')
else
Writeln('Число не делится на 3');
readln;
end.
3))))))
program z;
var
i: array[1..6] of byte;
x:byte;
begin
for x:=1 to 6 do
begin
Writeln('Введите ', x,' цифру из 6 ');
Read(i[x]);
end;
if (i[1]+i[2]) = (i[4]+i[5]+i[6])
then
Writeln('Билет счастливый')
else
Writeln('Билет не счастливый');
Readln;
end.
5)))
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 6 = 0
then
Writeln('Число делится на 6')
else
Writeln('Число не делится на 6');
readln;
end.
6)))))
program z;
var
a,b:integer;
begin
Writeln('Введите число A'); Readln(a);
Writeln('Введите число B'); Readln(b);
if b mod a = 0
then Writeln('Число А делится нацело на число В')
else Writeln('Число А не делится нацело на число B');
Readln;
end.
Ребро - линия пересечения двух плоскостей, узкий край или сторона предмета. Дуга - участок кривой между двумя её точками
2. Имеем два условия, связанные по "И", а это означает, что если хотя бы одно не выполнено, то не выполнено и условие в целом.
а) условие "НЕ оканчивается на мягкий знак" заменим на более привычное "Оканчивается любой буквой, кроме ь".
б) условие "количество букв четное" понятно и так.
Еще раз: если нарушено хотя бы а) или б), то слово бракуем.
сентябрь - нарушено а) ⇒ бракуем
август - не нарушены оба условия ⇒ подходит
декабрь - нарушено а) ⇒ бракуем
май - нарушено б) ⇒ бракуем
март - не нарушены оба условия ⇒ подходит
Ответ: август, март
3. Тут если опыта решать нет, лучше строить картинку (которая по-умному называется граф),
Для построения графа рисуем кружочки с буквами из таблицы. Теперь выписываем имеющиеся пути. Сначала убедимся, что граф будет симметричным, т.е. путь между двумя любыми точками Х и Y одинаков для X→Y и Y→X, т.е. выполняется Х↔Y. Для этого пробегаем взглядом таблицу и убеждаемся в её симметрии относительно заштрихованных квадратиков. Примерно так, как это показано красными линиями в первом вложении (там не поместилось 7-7 из-за слишком мелкого рисунка).
Все хорошо, граф будет симметричным и это позволяет нам заниматься числами только левее и выше заштрихованных квадратиков.
Из А ведут пути в B (длина 5), С (длина 4), D (длина 10) и F (длина 1). Рисуем соответствующие пути и проставляем на них длины. Так получается граф, который приведен во втором вложении. Ищем на нем самый короткий путь между A и D. На рисунке это A-F-D, он выделен красным и его длина находится как 5+1 = 6.
Ответ: 6
11. Эти задачи решаются путем последовательной простановки на каждой точке количества ведущих в нее путей и последующего суммирования.
Смотрим последнее вложение.
Из А в Б ведет только один путь. Ставим 1 на стрелке, ведущей от А к Б. Больше в Б путей нет, поэтому общее число путей в Б равно 1 и мы ставим эту 1 в виде индекса Б₁. Также поступаем с точкой Г. В точку В приходят уже три пути и на каждой стрелочке стоит цифра 1, всего получается 3 и пишем В₃. Теперь это число 3 будет на стрелке, исходящей из В. Точки Д₁, Ж₁ и И₁ получаются аналогично.
В точку Е приходят стрелки с числами 1+3+1 и получаем Е₅. Такие же стрелки исходит из Е₅. Дальнейшее строится аналогично.
Ответ: 12
Var
s1,i:integer;
ir,s2:real;
begin
s2:=1;
for i:=1 to 20 do
begin;
ir:=i;
if i mod 2=0 then s1+=sqr(i) else s2*=power(ir,3);
end;
writeln('Cумма квадратов чётных=',s1);
writeln('Произведение кубов нечётных=',s2);
<span>end.</span>