Информатика | 10 - 11 классы
Помогите с информатикой, пожалуйстааа Нужно написать программу в Pascal ABC.
Помогите написать программу мороженого в Pascal ABC?
Помогите написать программу мороженого в Pascal ABC.
Задача по информатике в Pascal ABC?
Задача по информатике в Pascal ABC.
Pascal ABC написать программу?
Pascal ABC написать программу.
Нужна помощь?
Нужна помощь!
Нужно написать программу в Pascal ABC вычисляющую сумму цифр двухзначного числа.
8 класс.
Pascal ABCМне нужна программа для ракеты, которая летит вверхПомогите, пожалуйста, если кто - то знает)?
Pascal ABC
Мне нужна программа для ракеты, которая летит вверх
Помогите, пожалуйста, если кто - то знает).
Pascal abc помогите ?
Pascal abc помогите .
Составить программу.
Дана строка ?
Дана строка .
Написать программу, которая подсчитывает количество символов "?
" (pascal abc) помогите пожалуйста!
ПОМОГИТЕ, ПОЖАЛУЙСТА, очень срочно нужно написать программу в Pascal(ABC)?
ПОМОГИТЕ, ПОЖАЛУЙСТА, очень срочно нужно написать программу в Pascal(ABC).
Написать программу в ABC Pascal, площадь квадрата S = p * r?
Написать программу в ABC Pascal, площадь квадрата S = p * r.
Написать программы в PASCAL ABC?
Написать программы в PASCAL ABC.
На странице вопроса Помогите с информатикой, пожалуйстааа Нужно написать программу в Pascal ABC? из категории Информатика вы найдете ответ для уровня учащихся 10 - 11 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
Слова отделяются друг от друга одним пробелом, знаков препинания нет.
Var
s, s1 : string ; l, p : integer ; b : boolean ;
begin
writeln('Введите строку : ') ;
readln(s) ;
s1 : = s + ' ' ;
l : = pos(' ', s1) ;
b : = true ;
while p> ; 0 do
begin
delete(s1, 1, p) ;
p : = pos(' ', s1) ;
if p> ; 0 then b : = b and (l = p) ;
end ;
if b then writeln('ДЛИНА') ;
end.
Пример :
Введите строку :
мама мыла раму
ДЛИНА.