Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить в Паскале пожалуйста! (Помогите решить в Паскале пожалуйста!Блок схему если можно)
Помогите решить в Паскале пожалуйста!
Данонатуральне число n (n ≤ 100). Найти першу цифручисла n.

24
1 | Автор: ryaba | 2013-09-29, 17:13   |  Репутация: [ + 0 ]
program zadacha;
var n:integer;
begin
writeln ('Vvedite 4islo');
repeat
read (n);
until (n<0) or (n>100);
if n=100 then writeln ('Otvet 1');
if n<10 then writeln ('Otvet ' , n)
else writeln ('Otvet ', n div 10);
end;
end.


Тот, кто смеется последним, просто не врубился сразу.)
2 | Автор: Ifrit | 2013-09-30, 10:15 | Изменено: Ifrit - Пн, 2013-09-30, 10:26   |  Репутация: [ + 12 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить в Паскале пожалуйста! (Помогите решить в Паскале пожалуйста!Блок схему если можно)
Страница 1 из 11
Поиск: