|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.09.2014, 20:03 | #1 |
Новичок
Джуниор
Регистрация: 25.09.2014
Сообщений: 2
|
Program A1. минимальное и максимальное число
Нужно написать программу. Мы пишем натуральное число, любое, а программа должна найти минимальное и максимальное число в этом натуральном числе.
Я написал, не могли бы проверить и подкорректировать. Program A1 var z,n,min,max:integer; BEGIN write('n='); read(n); max:=0; min:=9; while n>0 do begin z:=n mod 10; if z < min then min:=z; if z > max then max:=z; n:=n div 10; end; writeln('max=',max,' ','min=',min); END. |
25.09.2014, 20:33 | #2 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Program A1; А так.. Всё прекрасно! Удачи |
|
25.09.2014, 20:44 | #3 |
Новичок
Джуниор
Регистрация: 25.09.2014
Сообщений: 2
|
А не могли бы вы еще помочь с блок схемой как нибудь?
|
25.09.2014, 20:46 | #4 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
А в интернете есть онлайн построители блок-схем
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дан массив целых чисел. Найти максимальное и минимальное значение. Вывести максимальное на 1-ое место, минимальное на последнее. | Punk_Killer | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 01.04.2013 09:38 |
Число фибоначчи. Двумерный массив, максимальное и минимальное число. | Silverstone | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 02.12.2012 12:19 |
В последовательности определить сумму чисел,их количество,максимальное и минимальное число с их порядковыми номерами (QBasic) | Лена1308 | Помощь студентам | 0 | 01.12.2011 21:19 |
C++. среднее арифметическое и минимальное и максимальное число последовательности дробных чисе | ~Az@liya~ | Помощь студентам | 2 | 08.11.2010 18:07 |
Максимальное и минимальное число из любой последовательности чисел | Сергеич59 | Фриланс | 5 | 10.03.2010 18:47 |