msk27
?>

Ниже на пяти языках записан алгоритм. получив на вход число x, этот алгоритм печатает два числа a и b. укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 4, а потом 17. паскаль; program b20; var x, a, b, d: integer; begin readln(x); a : = 0; b : = 0; d : = 0; while x > 0 do begin if d mod 2= 0 then a : = a + x mod 10 else b : = b + x mod 10; x : = x div 10; d: =d + 1 end; writeln(a); write(b); end.

Информатика

Ответы

Chikichev456
Program oddnumeric; var   n, i: integer;   a: array [1..3] of byte;   b: boolean; begin   write('введите трехзначное число: ');   readln(n);   a[1]: =n div 100; {1 цифра сотен}   a[2]: =(n div 10) mod 10; {2 цифра десятков}   a[3]: =n mod 10; {3 цифра количество единиц}   b: =false;   for i: =1 to 3 do   begin       if (a[i] mod 2)=0 then           b: =true;   end;   if b then     writeln('в этом числе есть четные цифры')   else       writeln('в этом числе нет четных цифр'); end.
Igorevich_Aleksandrovna1599
Начнем с того, что будем считать, что первое утверждение первого эксперта - правда. тогда четвертый эксперт говорит нам о том, что 2 место будет у италии. тогда пятый эксперт вводит нас в полный конфуз, т.к оба его заявления - ложь. следовательно нужно начать заново, и принять второе заявление первого критика как истину. украина на 3 месте. тогда по заявлению второго критика мы узнаем что германия - на 4 месте. третий критик говорит нам о том, что китай не может стать первым. пятый критик говорит, что италия - 5я. четвертый, что россия - 1я. следовательно, китай - 2й. 1-россия 2-китай 3-украина 4-германия 5 -италия

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Ниже на пяти языках записан алгоритм. получив на вход число x, этот алгоритм печатает два числа a и b. укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 4, а потом 17. паскаль; program b20; var x, a, b, d: integer; begin readln(x); a : = 0; b : = 0; d : = 0; while x > 0 do begin if d mod 2= 0 then a : = a + x mod 10 else b : = b + x mod 10; x : = x div 10; d: =d + 1 end; writeln(a); write(b); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

NikolayGoncharov
Yevgenevich775
мария Кузив1393
milkiev
alexfold
glebovaludok
Alekseevna1064
druzhbamagazin2457
volodinnikolay19
mail9
galtig83
sinicin80
Sknyajina5
akarabut343
Chausmonk4