Уроки по программированию на языке Pascal. Урок 5: Условный оператор if...then...else

Пятый урок по программированию на языке Pascal (Паскаль). В этом уроке был рассмотрен условный оператор ( оператор условий) if then else или как его еще называют оператор выбора.

[ИльяЦаринский]

Привет. Помогите. Дано натуральное число n. Получить все натуральные q, что n делится на q^2, и не делится на q^3.

uses crt;

var n, q:integer;


begin

clrscr;

writeln('Введите N: ');

read(n);

for q:=1 to 999 do

if ((n mod sqr(q)=0) and (n mod exp(ln(q)*3) <> 0)) then write('q')

else write('not q');


end.
Заранее спасибо

[VeripProductionANIME_HA_AVE_]

Смотрите если у вас пишет ошибку Readkey;
значет вы не написали Uses Rrt;
в начале

[AnonymusClubGT]

А скажи почему readkey не распознаётся программой?

[alexcan]

вы конечно извините, но в видео какой то посторонний шум

[nikomatveev]

а я не понел, как читы для кс создают через паскаль? в папке чита есть exe, dll, ini.ini открывает, остальное много непонятных символов.

[КостяБрю-кт]

у меня вопрос: как объединить в операторе три и более условий?

[тотсамый-бй]

блин не хочу обидеть автора но с 3.00 минуты ты как будто в гамно и что то мямлиш)))) сначало ражал))