Написать программу в Pascal.ABC
10-11 класс
|
Вывести
предпоследнее слово во введенной пользователем строке.
program baz;
var
s,s2:string;
i,n:integer;
begin
readln(s);
i:=length(s);
n:=0;
while n=0 do
begin
if s[i]=' ' then
n:=i;
i:=i-1;
end;
i:=length(s);
s1:=copy(s,n+1,i-n-1); //i-n-1 вот тут уберете -1 , если слово обрежется
writeln(s1);
end;
Другие вопросы из категории
do begin sum:=sum+i/5; i:=i-5 end[/tex]
Например, 153=1³ + 5³ + 3³.
Входная строка содержит два натуральных числа- значения а и б.
Входные данные
Входная строка содержит два натуральных числа - значения а и б, разделенных пробелами. Гарантируется, что а≥б.
Выходные данные
Программа должна вывести в одну строчку все числа Армстронга на отрезке а, б, разделив их пробелами. если таких чисел нет, программа должна вывести -1.
число 51,12510
Читайте также
в одномерный целочисленный массив осуществляет посредством цикла WHILE…DO, а вывод - REPEAT…UNTIL (в скобках указана размерность
массива).
См. приложенные скрины.
произведение и количество отрицательных элементов, произведение элементов до
первого отрицательного. Отсортировать массив по возрастанию.
Дан двухмерный массив A[1..m,1..n]. Написать программу построения одномерного массива B[1..m], элементы которого соответственно равны суммам элементов строк.