Паскаль.
10-11 класс
|
Дана строка, содержащая слова, разделенные одним пробелом. Напечатать все слова, отличные от последнего слова.
var
s: string;
begin
readln(s);
write(s.Split(' ')[0], ' ');
foreach s1: string in s.Split(' ') do
if (s1 <> s.Split(' ')[0]) then
write(s1, ' ');
end.
Другие вопросы из категории
F(x)={x^3-3x8 если х<=1
{1/(x^3-3x8) если х>1
формул языка Pascal сделать так, чтобы случайные числа выпадали в интервале (a;b)
Объём СD = 720 мбайт
Символов в строке- 58
Строк на странице- 42
Страниц- 435
ретрансляцию данных не раньше, чем им будут получены первые 256 Кбайт этих данных. каков минимально возможный промежуток времени в секундах с момента начала скачивания Толей данных размером 2 Мбайта до полного их получения Мишей.
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;