Войти Регистрация Спроси ai-bota

Как вывести первые иницыалы фамилии,имени,отчества в паскале

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

saitieva03

24.10.2020 18:14

Даны два неравных целых двухзначных числа. возвести в квадрат большее из этих чисел и удвоить меньшее число. написать программу для паскаль....

shtoshpulodov

05.02.2023 21:32

3) Какой показатель не относится к основным характеристикам процессора? a) Тактовая частота b) Объем оперативной памяти c) Разрядность d) Частота системной шины e) Объем кэш-памяти...

2003stanislav

13.04.2022 21:17

Які властивості має об єкт текстовогодокумента абзац?...

лезгин05

25.04.2022 22:53

Задано массив из n элементов. найти среднее арифметическое элементов массива, превышающих число m....

veshove

08.02.2023 04:26

Придумайте и запишите линейный алгоритм, который можно было бы представить в виде блок-схемы начало прямоугольник прямоугольник прямоугольник прямоугольник прямоугольник прямоугольник...

MiracleOne

23.06.2022 06:47

Где ошибка var x,y,i,s,d,n,p: integer; begin randomize; for i: =1 to 10 do begin x: =random(8)+2; y: =random(8)+2; p: =0; n: =0; writeln ( сколько будет ,x, * ,y, = ); read (s);...

ольга2444

07.06.2021 06:50

4. какие имена объектов в списке: общие или единичные? * колесо * комната * обод * стол * автомобиль * дверь...

гость66666

06.01.2020 03:39

Представь себе что ты беседуеш со своим сверстником из начала двадцатого века.о чём ты хотел бы его распросить? составь перечень вопросов....

czar15

06.01.2020 03:39

Знайдіть значення виразу 101 * 99 за формулою різниці квадратів...

ffgdfsdf

06.01.2020 03:39

Какую диковинку и за сколько приобрёл у император александр павлович? из...

Ответ:

илюхв

08.10.2020 14:49

Program p1;
uses crt;
var s,s2,s3:string;
a:integer;
begin
read(s);
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=S3+s2+'.';
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=s3+s2+'.';
s2:= copy(s,1,1);
s3:=s3+s2+'.';
writeln(s3);
end.

0,0(0 оценок)

Ответ:

RomaNeymarjr

08.10.2020 14:49

Var
s:string;
i: integer;
begin
readln(s);
s:=' '+s;
For i:=1 to length(s) do
if s[i] = ' ' then
Write(s[i+1]);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку