Задания.ру
Анонимно
23 часа назад

В заданном тексте перевернуть каждое слово
Программу сделать с помощью процедур
Текст набить вручную(не больше 10 слов).
pascal

Ответ

Анонимно
program z40;uses crt; var a,b,c : string;  i : longint; begin  clrscr;  write('Введите слово: ');readln(a);  b:='';  for i:=1 to length(a) do b:=a[i]+b;{ переворачиваем слово }  if a=b then write('перевертыш')     else write('не перевертыш');  readln; end.

Новые вопросы по Информатике

Логика. 39б Найти значение выражения ¬(a ∧ b) v (a ∧ b) Прошу объяснить решение и ответ. 39 баллов
5 - 9 классы
2 минуты назад
Составьте программу, определяющую максимальный элемент и его индексы матрицы А размерами MxN(паскаль)
10 - 11 классы
3 минуты назад
C++ дан ряд чисел 1 1 1 2 2 3 1 3 4 5 3 нужно вывести число меньше всего втречающееся в данном массиве
5 - 9 классы
6 минут назад
Длина окружности, по которой бегут школьники - А м. На каком расстоянии от центра они находятся?
10 - 11 классы
9 минут назад
Некоторый объект способный выполнять определенный набор команд \
5 - 9 классы
11 минут назад