Паскаль с нуля [ч8]. Что такое циклы и для чего они нужны. 100 ПОДПИСЧИКОВ! 

Aleks Play Спасибо)

ОН больше не делает ввв....идео???

Он выполнил свое предназначение

Спасибо за комментарий) Очень приятно, что могу помочь таким же ребятам как и я)

Андрей Серёгин и как оно?

@@Chris-je9fe В Microsoft забрали.

У него семья,работа,собакака...занят крч!

Ну как? Ответь пж!

Спасибо!

а зачем х?

Андрей Акимов Бл задолбали просто чтоб было

+Timur Sidorov var i:byte; begin for i:=0 to 20 do writeln(i); end.

ЭТА ГИНИЕЛЬНА1!1!1!1!1!11!1!1!

Интересно, хоть и просто.

Слишком просто

1) Квадрат - это вид прямоугольника 2) В твоей команде если ввести любое слово, кроме квадрат, оно будет восприниматься как "прямоугольник" (например, "НИЗНАЙУ").

Program xxaxa; var a: string; c, d, f: integer; begin writeln('Периметр чего вам нужен: квадрат или прямоугольник? '); read(a); if a = 'квадрат' then begin writeln('Введите сторону квадрата '); read(c); writeln('Периметр квадрата равен: ', 4*c); end else if a = 'Прямоугольник' then begin writeln('Введите длину прямоугольника '); read(d); writeln('Введите ширину прямоугольника '); read(f); writeln('Периметр прямоугольника равен: ', d*2+f*2); end else writeln ('Введите квадрат или прямоугольник'); end. Вот норм

Посмотри уроки по алгоритмам

Извините что поздно, но можно попробовать в этот цикл вписать "i := i + 1", и далее просто вывести.

Эх, умник... Он же дальше написал так сам.

он также сделал, позже

Учись смотреть видео доконца

@@ggghhh5721 no

Зачем?