Регистрация
руслан794
08.09.2020 07:45
Информатика
Есть ответ 👍

Дана строка, состоящая из слов, разделённая в некоторых местах запятыми. поменять местами фрагменты строки, разделённые запятыми. решить в pascal.

111
347
Посмотреть ответы 1

Ответы на вопрос:

Сашулёноксовёнок
Сашулёноксовёнок
4,6(93 оценок)
Var  i,a: integer;   ch: set of char;   n: string; begin  write('введите число ');   readln(n);   ch: =['0'..'9'];   for i: = 1 to length(n) do      if n[i] in ch then a: =a+1;   case a of  1: write('в числе ',a,' цифра');   2..4: write('в числе ',a,' цифры')  else write('в числе ',a,' цифр');   end; end.  

Популярно: Информатика