Рабочий стол)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
Программа не правильная, работать не будет.
//Правильный вариант
Var s,k:integer;
Begin
s:=0;
for k:=8 to 12 do
s:=s+12;
Writeln(s);
End.
s = 60
Цикл выполнится 5 раз.
1)
program perviynomer;
var
a,b:integer;
begin
write ('Введите 1-ое число: ');
ReadLn(a);
write ('Введите 2-ое число: ');
ReadLn(b);
if a>b then
writeln('Задача решена ',a+b)
else
writeln('Задача решена ',a*b);
readln;
end.
2)
program vtoraya;
var
a:integer;
begin
write('Введите число: ');
ReadLn(a);
if (a>=-5) and (a<=3) then writeln('Число ', a,' лежит в данном промежутке') else
WriteLn('Число ', a,' не лежит в данном промежутке');
readln;
end.
3)
program tretya;
Var
X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if X>0 then
if Y>0 then Write('Первая четверть')
else Write('Вторая четверть')
else
if Y<0 then Write('Третья четверть')
else Write('Четвёртая четверть')
End.
5)
program chetvertaya;
uses crt;
var
a,b,c:real;
begin
Write('Введите 1-ое число: ');
readln(a);
write('Введите 2-ое число: ');
readln(b);
Write('Введите 3-ие число: ');
readln(c);
if a > b then
if b > c then writeln('Сумма наибольших: ',a+b)
else writeln('Сумма наибольших: ',a+c)
else if a > c then writeln('Сумма наибольших: ',a+b)
else writeln('Сумма наибольших: ',b+c);
readln;
end.
Заменяем буквы цифрами
А=0
К=1
Р=2
У=3
Слова соответствуют числам четверичной системы счисления, т.к. в алфавите всего четыре буквы, и слова записаны в алфавитном порядке.
Слово УКАРА = 31020(3) = 840 в десятичной
840 будет записано под номером 841.
Ответ: 841
Задачка интересная, исследуем её.
Понятно, что программ будет 8. Но в задаче спрашивается, сколько разных чисел получится из двойки, поэтому нужно исследовать каждую программу
1. +++ (((2 +2) +2) +2 = 8
2. ++* (((2 +2) +2) *3 = 18
3. +*+ (((2 +2) *3) +2 = 14
4. *++ (((2 *3) +2) +2 = 10
5. *** (((2 *3) *3) *3 = 54
6. **+ (((2 *3) *3) +2 = 20
7. *+* (((2 *3) +2) *3 = 24
8. +** (((2 +2) *3) *3 = 36
Вот только теперь можно сказать что из 2 можно получить 8 разных чисел.
PS Арифметику проверь, писал напрямую в экран, мог допустить неточность.