Программа не правильная, работать не будет.
//Правильный вариант
Var s,k:integer;
Begin
s:=0;
for k:=8 to 12 do
s:=s+12;
Writeln(s);
End.
s = 60
Цикл выполнится 5 раз.
Program outr;
var a,b,c:real;
begin
readln(a,b,c);
writeln('a=',a,' b=',b,' c=',c);
if (a+c>b) and (a+b>c) and (c+b>a) then
begin
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
writeln('треугольник прямоугольный');
end else
writeln('треугольник построить невозможно');
<span>end.</span>
Свойство последовательности действий в системе.
Если запись числа оканчивается на 8, то система счисления (далее - с/с) не может иметь основание меньше чем 8+1=9. В этой системе счисления представление числа 30 будет двухзначным (с помощью одного разряда может быть представлено число, не превышающее 8, а двух разрядов достаточно для записи числа 9²-1=80, что превышает 30).
Двухзначное число может быть записано в с/с по основанию n следующим образом: na+b. По условию число оканчивается цифрой 8 и его значение равно 30. Получаем уравнение:
na+8=30 ⇒ na=22.
Раскладываем 22 на простые множители: 22=1х2х11
Решение уравнения в целых числах при условии n>8 дает два варианта ответов:
(n=11, a=2), (n=22, a=1).
Это порождает два числа:
Существует ли с/с по основанию n, в которой запись числа 30 будет одноразрядной?
Уравнение 8n=30 не имеет решений в целых числах, поэтому такой с/с не существует.
Ответ: 30(10)=18(22)=28(11).
1.
var x,y:real;
begin
write('x = ');
readln(x);
if x>0
then begin y:=sin(x); writeln('y = ',y); end
else writeln('При x<0 функцию не вычисляем почему-то');
end.
Пример:
x = 1.8
y = 0.973847630878195
2.
var t1,t2:integer; v1,v2:real;
begin
write('t1 = '); readln(t1);
write('t2 = '); readln(t2);
v1:=20/t1; v2:=10/t2;
writeln('v1 = ',v1,' v2 = ',v2);
if v1 > v2
then writeln('Скорость до обеда была выше')
else writeln('Скорость после обеда была выше');
end.
Пример:
t1 = 5
t2 = 4
v1 = 4 v2 = 2.5
Скорость до обеда была выше
3.
var a,k1,k2,k3,k4:integer;
begin
write('a = '); readln(a);
k1:=a div 1000;
k2:=a div 100 mod 10;
k3:=a mod 100 div 10;
k4:=a mod 10;
if (k1<>k2)and(k1<>k3)and(k1<>k4)and(k2<>k3)and(k2<>k4)and(k3<>k4)
then writeln('Все цифры числа различны')
else writeln('В числе есть повторяющиеся цифры');
end.
Пример:
a = 5135
В числе есть повторяющиеся цифры