|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
05.06.2014, 16:13 | #1 (permalink) |
Новичок
Регистрация: 05.06.2014
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нужна блок-схема по этому коду
crt; procedure Find; var i: Integer; n1, n2: Integer; begin for i := 10 to 99 do begin n1 := i div 10; n2 := i mod 10; if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then begin writeln(i, ' - подходит, решение найдено...'); exit; end else writeln(i, ' - не подходит ', (n1 + n2) * (n1 + n2) * (n1 + n2), ' не равно ', i*i); end; end; begin clrscr; writeln('Выполняется поиск...'); Find; end. |
05.06.2014, 16:13 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, пробежитесь глазами по схожим темам Если кто может, пожалуйста, нарисуйте блок схему по моему коду Составить алгоритм в блок схемах по коду Нужна блок-схема к программе Построение блок схем по коду Pascal Блок-схема по коду Pascal Нужна блок-схема, помогите |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|