Qbasic. Составить программу по организации спрайта посредством PUT GET. Спрайт необходимо нарисовать с команды DRAW. (Любые варианты - ракета, стрела, любое животное)

271

298

Посмотреть ответы 1

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

Мялан

Информатика

4,4(16 оценок)

Программа:

Pascal:

var

i, z: integer;

s, s0: string;

begin

write('Введите слово: '); readln(s);

for i := length(s) downto 1 do begin

s0 := s0 + s[i];

if s[i] in ['а', 'о', 'у', 'э', 'ы', 'я', 'ё', 'е', 'ю', 'и', 'А', 'О', 'У', 'Э', 'Ы', 'Я', 'Ё', 'Е', 'Ю', 'И'] then inc(z);

end;

if s = s0 then writeln('Это слово - палиндром') else writeln('Это слово - не палиндром');

writeln('Гласных букв: ', z);

end.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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