Регистрация
politovatanya1
06.09.2020 20:43
Информатика
Есть ответ 👍

Вставьте слова ,,всё,, ,, не все,, так чтобы высказывания стали истинными числа простые
​

244
402
Посмотреть ответы 1

Ответы на вопрос:

йцукен56
йцукен56
4,4(80 оценок)
Var   i,n: integer;   a: array[1..4] of integer; begin   write('n='); read(n);   for i: =1 to 4 do begin       a[5-i]: =n mod 10;       n: =n div 10       end;   writeln(a[4]*1000+a[3]*100+a[2]*10+a[1]);   writeln(a[3]*1000+a[4]*100+a[1]*10+a[2]);   writeln(a[2]*1000+a[1]*100+a[4]*10+a[3]);   writeln(a[1]*1000+a[3]*100+a[2]*10+a[4]) end. пример n=7048 8407 4870 784 7408

Популярно: Информатика