Держи!!
Подписал всё правильно!
Var s,n:integer;beginreadln(n);if (n < 10) or (n > 99) then writeln('NO') elsewhile n<>0 do begins:=s+n mod 10;n:= n div 10;end;if (s>10) and (s< 20) thenwriteln('YES') elsewriteln('LOCK');end.
15 = 15 градусам = 15 целых градусов
45 / 60 = 0,75 градуса
Ответ
15,75
1.
var a:array[1..30000] of integer; b,x:integer;
begin
for x:=1 to 30000 do begin readln(a[x]);
if a[x]<0 then b:= b+a[x];
end;
end.
2.
var a:array[1..30000] of integer; b,x:integer;
begin
b:= 1;
for x:=1 to 30000 do begin readln(a[x]);
if a[x] mod 3 = 0 then b:= b*a[x];
end;
end.
Странно, вроде уже отвечал...
// Задание №1
var a,b,c:real;
begin
writeln('Введите длины сторон треугольника');
readln(a, b, c);
if (a=b) and (b=c) and(a>0) then
writeln('Равносторонний')
else
writeln('Не равносторонний');
end.
//Задание №2
var
a, b, i, s: integer;
begin
writeln('Введите левую границу диапазона');
readln(a);
writeln('Введите правую границу диапазона');
readln(b);
s := 0;
for i := a to b do
if i mod 2 <> 0 then s := s + i;
writeln('Сумма Нечетных:', s);
end.