Помогите решить в Паскале пожалуйста!

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить в Паскале пожалуйста! (Помогите решить в Паскале пожалуйста!Блок схему если можно)

Данонатуральне число n (n ≤ 100). Найти першу цифручисла n.

№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 из 1
1

прикладная математика