Информатика, опубликовано 25.08.2019 00:37
Циклы!
ниже записана программа. получив на вход число x , эта программа печатает два числа, l и m. укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 10.
var x, l, m: integer;
begin
readln(x);
l : = 0;
m : = 0;
while x > 0 do
begin
l : = l + 1;
if m < x then begin
m: =(x mod 10)*2;
end;
x : = x div 10;
writeln(l);
writeln(m);
end.
максимальное число у меня - 959.
но я не уверенна
Ответы
Ответ оставил: Гость
Чертишь крест 10 на 10 ставишь через клеточку цифру в правую сторону 1 2 3 4 и так до десяти а в левую -1 -2 -3 -4 -5 -6 и так до 10 .потом верх пишешь 1 2 3 4 5 и так до 10 а в низ -1 -2 -3 -4 -5 и так до десяти и все делаешь потом координаты например 2, -3 значит в правую 2 клеточки и если - то 3 клетки вниз и соединяешь эти точкиОтвет оставил: Гость
Var n, k, i: integer;begin k := 1; for i := 1 to 4 do begin read(n); if (n >= 3) and (n <= 9) then k := k * n; end; if k = 1 then writeln(-1) else writeln(k);end.
Ответ оставил: Гость
Скорее всего, он сможет посетить 212 городов, поскольку 213 будет перелет в родной городОтвет оставил: Гость
Всё хорошо бы только надо ещё и картинки кораблей прилогать
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
