Циклы с постусловием и предусловием. Подсчитать количество символов, введенных с клавиатуры

@Oxion73 · Регистрация: 23.06.2013

Практическая работа

Задание 3. Подсчитать количество символов, введенных с клавиатуры. Признаком окончания ввода будем считать *.

@MicM · 27.06.2013, 08:51

Pascal

var
  k:integer;
  a:char;
begin
  k:=0;
  repeat
   write ('Ввод = > ');
   readln(a);
   if a<>'*' then k:=k+1;
  until a='*';
  writeln ('Кол-во символов: ',k);
end.

@Oxion73 1 / 1 / 1 Регистрация: 23.06.2013 Сообщений: 101
		1
	Циклы с постусловием и предусловием. Подсчитать количество символов, введенных с клавиатуры 27.06.2013, 01:09. Просмотров 1996. Ответов 1 Метки нет (Все метки) Практическая работа Задание 3. Подсчитать количество символов, введенных с клавиатуры. Признаком окончания ввода будем считать *. 0

Опции темы

Циклы с постусловием и предусловием. Подсчитать количество символов, введенных с клавиатуры

Решение