Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
muralova
28.04.2022 07:11 •
Информатика
Склавиатуры одной строкой вводят имя и фамилию. составте программу, которая: копирует в новую строку имя и выводит его.
Показать ответ
Ответ:
timurgu08
07.10.2020 08:10
Держи, если есть вопросы - пиши.
var a, b: string;
var c: word;
begin
c:=1;
Readln (a);
While (a [c] <> ' ') do begin
b:=b+a [c];
c:=c+1;
end;
writeln (b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
botovaov
04.04.2023 08:48
Что бы ты напечатал если бы у тебя был 3d принтер?...
Aкося
06.04.2022 08:22
Домашнее задание По Подготовь презентацию из 4 слайдов по предложенной теме. Содер- жание слайдов должно раскрывать соответствующие заголовки Тема презентации Заголовки слайдов...
mxnty
01.11.2021 12:10
1) Доведіть, що трикутник KBM рівно-бедрений, якщо AB = BC, ABK=CBM....
dflbv20050102
29.12.2022 01:49
Скласти Паспорт до твору Ярослав Мудрий О.Олеся...
vikasibarik
22.02.2023 19:00
5. Стихотворение «Сусанин» написано поэтом в 1943 году во время Великой Отечественной войны. Как вы думаете, почему для поэта было важно именно в это время вновь напомнить...
ВкусноеМясо
22.02.2021 18:54
1.4. Розглянь графік залежності маси тіла від його об єму. Визнач густину речо- вини 140 o 2 4 . V, см....
Denis7788
14.10.2021 06:30
Краткий пересказ 16 параграфа по обществознанию 6 класс Боголюбов !Вопрос:Что по мнению учебника должно быть основой семейных отношений...
serovik24
10.07.2020 21:45
14. Have you ever ... a famous person? 1. I love sweets that s why I always buy ... at the funfair. b) a) big wheel rollercoaster c) candy floss 2. At Disneyland you can ......
Aleksiy69
10.03.2020 22:37
1. Read the text, then answer the question...
dasha010598
19.05.2020 12:30
Докажите что всё треугольники подобны...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a, b: string;
var c: word;
begin
c:=1;
Readln (a);
While (a [c] <> ' ') do begin
b:=b+a [c];
c:=c+1;
end;
writeln (b);
end.