Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   вопрос по паскалю/дэлфи (https://forum.antichat.xyz/showthread.php?t=33829)

cb93ka 20.02.2007 23:39
вопрос по паскалю/дэлфи
 
Помогите плз с программой . Написать на паскале или дэлфи- вводится в строку числа через пробел (значения от -50 до 50) по нажатию ентера пишет кол-во положительных цифр (>0). Все

kair 26.02.2007 21:04
Код:
program maxchislo;
uses crt;
label D3;
var
i, chislo, max : integer;
begin
D3:writeln('введите число');
readln(max);
for i:=2 to 10 do begin
readln(chislo);
if chislo>max then max:=chislo
end;
writeln('max=', max);
goto D3;
end.

вот это дерьмо вставь в компилятор

nerezus 26.02.2007 21:07
вводится строка. Ищутся все цифры в диапазоне от '0' до '9'(Обычный цикл и условие в нем). Считается их количество.

А отрицательных цифр не бывает, поэтому минус перед цифрой не учитываем.

kair 26.02.2007 21:11
во-во!
только такой код будет в 100 раз >

r0 26.02.2007 21:16
в 500 =))
ну, как бы твой вопрос некорректен, как отметил nerezus
просто делаешь циклом repeat .. until KeyPressed
потом выводишь 101 =)


Время: 09:30