Первая задача
program firstProgram
var<span> ug1, ug2: real;
</span>begin<span>
write("Введите первый угол: ");</span><span>
read(ug1);</span><span>
write("Введите второй угол: ");</span><span>
read(ug2);</span>
<span> if ((ug1 + ug2) < 180)</span><span>
begin</span><span>
if ((ug1 > 90) or (ug2 > 90)) write("Треугольник тупоугольный");</span><span>
else if ((ug1 = 90) or (ug2 = 90)) write("Треугольник прямоугольный");</span><span>
else write("Треугольник остроугольный");</span><span>
end
</span><span>end</span>
Program cikl;
uses crt;
var x,y:integer;
begin
write('веди нужное число');
read(x);
for y:=-25 to x do
write(' ',y);
inc(y);
end.
это сгадится
2) Правильный треугольник.
Если бы задание было
Повтори 6 [Направо 60 Вперед 20]
тогда был бы ответ (1).
В данном случае черепашка:
первый повтор -
повернёт на 60°
пройдёт 20
повернёт на 60°
второй повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20
повернёт на 60°
третий повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20 <-- Вот точка, из которой черепашка отправилась в путь
повернёт на 60°
четвёртый повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20 <-- Вот точка, в которой была черепашка после того, как прошла 20 шагов в первый раз!
повернёт на 60°
Паскаль:
<span>const pi=3.14;
var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:4:1);
end<span>.
Пример:
</span><span>R = 4
V = 267.9</span></span>
Var a:real;
begin;
Writeln('Вычисление стоимости покупки с учётом скидки.');
Writeln('Введите сумму покупки и нажмите Enter');
Readln(a);
if (a>500) and (a<1000) then
begin;
writeln('Вам предоставляется скидка 3%');
a:=a/100*97;
end;
if a>1000 then
begin;
writeln('Вам предоставляется скидка 5%');
a:=a/100*95;
end;
Writeln('Сумма покупки с учётом скидки:',a,'руб');
<span>end.</span>
