2. Составьте программу, определяющую, на какую букву начинается третье слово в предложении. 3*. Составьте программу, определяющую длину последнего
5-9 класс
|
слова в предложении.
Желателно в Qbasic
2.
Program Pr1;
uses crt;
var stroka:string;
i,a,b:integer;
Begin
clrscr;
readln(stroka);
b:=1;
if stroka[b]<>' ' then a:=1
else while stroka[b]=' ' do b:=b+1;
for i:=1 to length(stroka) do begin
if (stroka[i]=' ') and (stroka[i+1]<>' ') then a:=a+1;
if a=3 then begin
writeln(stroka[i+1]);
break;
end;
end;
end.
Ой....тебе в QBasic...извиняй
Другие вопросы из категории
нужно выполнить переводы чисел из одной системы в другую
Читайте также
Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
выше П.; 4) Коля ростом ниже П.; 5) Саша и Петя имеют одинаковый рост. На какую букву начинаются фамилии каждого?
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!
буквы В, П, С, К. Известно, что:
1) Ваня и С - отличники;
2) Петя и В - троечники;
3) В ростом выше П;
4) Коля ростом ниже П;
5)У Саши и Пети одинаковый рост.
На какую букву начинается фамилиия каждого мальчика?