Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.
var a: integer;
begin
writeln ('vvedite nomer mesuaca');
read (a);
if (a=1) then writeln ('30');
if (a=2) then writeln ('28');
if (a=3) then writeln ('30');
if (a=4) then writeln ('31');
if (a=5) then writeln ('30');
if (a=6) then writeln ('31');
if (a=7) then writeln ('30');
if (a=8) then writeln ('31');
if (a=9) then writeln ('30');
if (a=10) then writeln ('31');
if (a=11) then writeln ('30');
if (a=12) then writeln ('31');
end.
алгоритм-это организованная последовательность действий.
свойства алгоритма: дискретность, , массовость, детерминированность, конечность.
алгоритм:
1)взять линейку
2)найти длинный всех сторон
3)сложить все три строны треугольника
4)записать ответ
(извиняюсь если алгоритм не правильно написан, с не дружу)
радиосвязь!
попов!
Популярные вопросы