tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано предложение,определить
Дано предложение,определить длину последнего слова.
Nasva
3 02.06.2019 03:30
0
Ответы
КэтЗед
02.07.2020 23:52
Var
str:string;
k,i:integer;
begin
k:=1;
readln(str);
for i:=1 to Length(str) do
begin
if str[i]=' ' then
k:=i;
end;
writeln(Length(str)-k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
xx5
24.01.2022 00:14
Ваня готовит блюдо из четырёх ингредиентов. В рецепте не написано их количество и последовательность добавления, но Вася знает их сам. Он кладёт в кастрюлю первый ингредиент,...
DVSHV
23.01.2022 23:39
Используя законы алгебры логики упростить логическое выражение...
petia2006
23.01.2022 23:35
На какое количество клеток сместится робот после выполнения следующего алгоритма : влево вправо вниз вправо вверх вправо на 1 клеткуна 2на 3...
жепа564
23.01.2022 23:33
Як у прямокутній таблиці замінити всі елементи їх квадратами?...
irinakarimova2
23.01.2022 22:53
Решите варианты ответовбокс и гребляхоккей и греблябокс и хоккейакробатика и гребля...
sadpoli
23.01.2022 22:52
Платформы для разработки SOAP и REST-сервисов....
009988771
23.01.2022 22:51
Даны два числа X, Y. Меньшее из двух значений заменить на 0. Если же они равны – заменить нулями. На питоне нужно сделать...
nata960
23.01.2022 22:44
это обработка массивов с текстовых файлов PYTHON...
Tanyams
23.01.2022 22:40
Турист 40 хв піднімався на гору і 30 хв спускався з гори. складіть математичну модель і проєкт для визначення пройденого шляху решить задачу в python...
Katya14340
23.01.2022 22:36
Написать код в цикле C клавиатуры последовательно вводятся данные о количестве товара и его единичной массе. Ввод автоматически прекращается, как только будет введено...
Популярные вопросы
Созерцания что такое ? словарь ожегова?...
2
1. букву е на місці пропуску треба писати в кожному слові рядка а.вишн..ю,...
3
Водителю легковой машины надо попасть из зареченска в ивантеевку не...
1
Во сколько раз сириус ярче полярной звезды...
1
Моторная лодка шла 6: 00 по течению реки и 5 часов против течения определите...
2
Найдите объем прямого цилиндра, если радиус основания ом= 3 см, а длина...
2
Составьте синквен на тему грибы образец есть...
3
X^{2} -16x+60 = 0 - дискриминан надо...
1
Составьте словосочетания ,используя неопределённые местоимения: рассчитывать...
2
Где применяются соли азотной кислоты?...
3
str:string;
k,i:integer;
begin
k:=1;
readln(str);
for i:=1 to Length(str) do
begin
if str[i]=' ' then
k:=i;
end;
writeln(Length(str)-k);
end.