Регистрация
annet5530
13.01.2020 16:20
Информатика
Есть ответ 👍

Скласти блок схему визначити найбільше з трьох чисел
​

136
401
Посмотреть ответы 1

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

yogurtq2018
yogurtq2018
4,6(14 оценок)
Vari,a,k,m: integer;                     begin                                repeat                                          writeln(' введите число');                                               readln(a);   k: =0;                                                   while a> 0 do                                                            begin                                                                        m: =a mod 10;                                                                       k: =k+1;                                                                       a: =a div 10;                                                             end;                                             until k< =5;                           writeln(k); end.

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