а вообще, можно использовать инженерный режим калькулятора windows для перевода в эти системы
Ответ дал: Гость
var a: array [1..10] of integer;
s,i,c,b: integer;
begin
read(c,b,n);
randomize;
for i : = 1 to n do
a[i]: = random(b) -c+1;
for i: = 1 to n do
if i mod 2 = 0 then s: =s+1;
writeln(s);
end.
Ответ дал: Гость
var a, b, c: integer;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if a < b then if a < c then writeln(a, ' - меньшее') else writeln(c, ' - меньшее') else if b < c then writeln(b, ' - меньшее') else writeln(c, ' - меньшее'); end.
Ответ дал: Гость
if x< 10 then x: =10
else
if x< 15 then x: = 16
else x: = 20
для обоих вариантов х=10, потому что дальше первой строчки оно не пойдет
Популярные вопросы