составьте радугу желаний на каждои цветной полоске из бумаге напишите свои пожеланий друьям

составьте радугу желаний на каждои цветной полоске из бумаге напишите свои пожеланий друьям
- Предмет:
  Русский язык
- Автор:
  kaia
- 5 лет назад

Ответы 1

1) Красный цвет- желаю красоты
2) Оранжевый- желаю оптимизма
3) Жёлтый- желаю жить счастливо
4) Зелёный- желаю здоровья
5) Голубой- желаю грустить меньше
6) Синий- желаю сильным быть
7) Фиолетовый- желаю фантазии больше))
Вот так, это мой подход к заданию)
- Автор:
  ciscoucpq
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

Портниха работала четыре дня по 6 часов другая портниха работала шесть дней по 5 часов за это время они сделали 108 выкроек сколько сделала каждая портниха если за час они выполняли одинаковую норму?
- Предмет:
  Математика
- Автор:
  luci
- 5 лет назад
- Ответов:
  
  2
- Смотреть
Пожалуйста помогите с английским . Спасибо с: , ты добр(ый) ( ая)
- Предмет:
  Английский язык
- Автор:
  villegas
- 5 лет назад
- Ответов:
  
  3
- Смотреть
Кроссворд на тему ғаламтор ПОМОГИТЕ ПОЖАЛУЙСТА
- Предмет:
  Қазақ тiлi
- Автор:
  nickers
- 5 лет назад
- Ответов:
  
  1
- Смотреть
Pascal;
Дан текст, слова которого отделяются друг от друга пробелами. Удалить из тек-ста слова, которые начинаются и заканчиваются одной и той же буквой.
Распечатать исходный и полученный тексты.

Вот сама задача, только там не работает delete.

var
s,s2, a, b: string;
i: integer;
begin
writeln('Введите текст');
readln(b);
s := b;
writeLn;
writeln('Удалённые слова: ');
for i := 1 to length(s) do
begin
if s[i] <> ' ' then
a := a + s[i];
if (s[i] = ' ') or (i = length(s)) then
begin
if a[1] = a[length(a)] then
writeln(a);
a := '';
delete(s,i,length(a));
end;
end;
WriteLn;
WriteLn('Исходный');
WriteLn(b);
Writeln('Изменённый текст');
WriteLn(s);

end.
- Предмет:
  Информатика
- Автор:
  mohamedmcdaniel
- 5 лет назад
- Ответов:
  
  1
- Смотреть

составьте радугу желаний на каждои цветной полоске из бумаге напишите свои пожеланий друьям

Ответы 1

Топ пользователей