Регистрация
aseeva2883
11.01.2023 06:07
Информатика
Есть ответ 👍

Как вывести в Pascal слово, идущее после запятой?

285
350
Посмотреть ответы 2

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

Anastasia9311
Anastasia9311
4,6(24 оценок)

var

slovo,slovo2:string;

simvol:Char;

a,ampirmetr:integer;

begin

readln (slovo);

a:=Pos(',',slovo);

ampirmetr:=length(slovo);

if a = 0 then writeln ('No data')

else begin

a:=a+1;

ampirmetr:=ampirmetr-a+1;

slovo2:=copy(slovo,a,ampirmetr);

writeln(slovo2);

end;

readln;

end.

Объяснение:

Имеется проверка на запятую.

В начале вводите текст с запятой, затем выполняется вывод текста после запятой (1 раз)

ZVERO9S4R
ZVERO9S4R
4,5(34 оценок)
1. windows, linux, android 2. norton commander, volkov commander, far, windows commander 3. drivers for nvidia, amd, radeon, firepro 4.kaspersky, avast, avg 5.winrar, 7-zip, winzip 6.network utilities, lockhunter, dr.web curelt

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