потому что омерзителен, микро как у бича, хотя работает с компом мог и получше купить, попил бы воды, его причмокивание аж кровь из ушей, и как вообще может учить человек программированию который даже винду активировать у себя не может
Спасибо огромное!!!!!!! Очень!!! Очень помогли!!! С Вашей помощью я написала свою первую программу!!!!! Спасибо огромное за доброе и ОЧЕНЬ полезное дело, которое Вы делаете!!!
Офигенный урок!!! Только за 1-ые 3 минуты я узнал то, что я ничего не знаю из этого школьного курса по информатике. А за десять понял что я даже азы не знаю. Желаю чтоб все учителя были такие!
большое спасибо, мы недавно приступили к изучению паскаля в школе и мне захотелось узнать больше о программировании, я смог выполнить задачу самостоятельно благодаря вам.
я уже второй курс колледжа на программиста, щас паскаль хреначим, но так как я постоянно болею соответственно вообще ничего не понимаю, когда все уже пишут длинные проги по 50 строк, я вообще ничего не умею. Сейчас вот ура написала первую программу по вашему дз. СПАСИБО ВАМ!!!
На уроках информатики мы сначала учились программировать на компьютерах. но когда у нас были контрольные работы, училка заставляла писать программы на листочке, в то время когда другая группа писала на компьютерах, понимаете? Программы на листочках писать! Ну а если серьезно. то очень полезное видео, очень хорошо все объяснил, спасибо👍
Лайк однозначно. Собираюсь сдавать информатику, а мы проходим именно паскаль, поэтому ваши уроки очень пригодятся. И да, вы довольно хорошо объясняете. Стоило бы конеяно сказать о том что именно делает "read" но на данный момент я уже понял.
Хотелось написать, что это замечательное видео(и последующие) именно с них началось моё изучение Pascal и любовь к программированию(тк в школе ничего понятно не объяснили) Хочу сказать Вам огромное спасибо, за все что вы делаете и что мотивируете учиться P.s я смотрела это в 8 классе, а сейчас в 9 классе получила красный аттестат
Program h1; VAR A,B,H,S:INTEGER; BEGIN WRITE('ВВЕДИТЕ СТОРОНЫ И ВЫСОТУ параллелепипеда'); READ (A,B,H); S:=2*(A*B)+2*(A*H)+2*(H*B); WRITELN('S=',S); END.
PROGRAM VLAD1; VAR A,B,H,S:INTEGER; BEGIN WRITE('ВВЕДИТЕ ТРИ ЧИСЛА'); READ(A,B,H); S:=2+(A*B+A*H+B*H); WRITE('ПЕРИМЕТР = ',S); END. Вот что у меня получилось это мой первый урок программирования
Ну мне говорли что паскаль нужно выучить, он сложный но в нём тебе нужно все очень детально розписывать, это поможет понимать в будущем лучше что ты на других языках делаешь, как работает как устроено и т. д.
Для проверки- program wan; VAR H,A,B,S:integer; begin write('введите высоту'); read(H); write('ведите длину'); read(A); write('ведите ширину'); read(B); S:=(2*A*B)+(2*A*H)+(2*B*H); write(S); end.
Домашние задание: Program Filatov_3; var a,h,b,S:real; begin writeln('Здравствуйте!'); write('Введите стороны параллелепипеда в сантиметрах:'); read(a,h,b); S:=2*((a*h)+(h*b)+(a*b)); write('Площадь параллелепипеда = ',S,('см')); end.
Program Egor1; var S, a, b, h: real; Begin writeln ('Введите длину параллелепипеда'); readln (a); writeln ('Введите ширину параллелепипеда'); readln (b); writeln ('Введите высоту параллелепипеда'); readln (h); S := 2*(a * b + a * h + b * h); writeln ('Ответ'); write ('Площадь поверхности параллелепипеда S равна ',s:1:2 , ' кв. см.'); end.
h читается АШ в математике (эта традиция пошла из 19 века, когда одной из лидирующих стран была германия (... он из германии туманной принёс учёности плоды...)), а по английски читается АЙЧ.
Дмитрий доброе. Как можно с Вами связаться. Ну скажем через комментарий. Не могу решить две задачи. Сможете оказать помощь? В программировании еще слаб.
program Parallelogram; var a,b,h,S: real; begin writeln('Enter the values of a,b,h'); Read(a,b,h); S:=2*((a*b)+(b*h)+(a*h)); Write('Surface area of parallelogram= ',S); end. Нужно ли еще что-то добавить?
program vor; var h,a,b,s:real; begin writeln('Введите сторону A'); read(a); writeln('Введите сторону B'); read(b); writeln('Введите сторону H'); read(h); s:=2*(a*b+a*h+b*h); writeln('Площадь = ',s); end.
Program Vasya; VAR a,b,h,S:real; begin write('Введите значения a'); read(a); write('Введите значения b'); read(b); write('Введите значения h'); read(h); S:= 2*(a*b+ b*h+ a*h); write(S); end. вот дз)
program .....i; var a,b,c,s:integer; begin write ('введите данные сторон'); read(a,b,c); s:=2*(a*b + b*c + a*c); write ('площадь боковой поверхности',s); end.
Помогите разобраться ! Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последо-вательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 9.
Не подскажете, почему в моей программе выдается сообщение об ошибке 215? uses crt; var a:longint; d,b,c:integer; begin d:=34; b:=23; c:=52; a:=100*d+1000*b+10000*c; write(a); readln; end.
Program Razvertka; var A, B, H, Sum: real; begin Write ('Введи H, A и B: '); read (H, A, B); Sum:=2*(H*B+H*A+A*B); Write('Площадь поверхности параллелепипеда равна: ', Sum); end.
Мне кажется, или ты немного не правильно решил задание 6.2 , точнее решил правильно, но условие задачи прочитал не так, там написано: Ускорение свободного падения g = 9,8 м/с2 укажите в разделе описаний как константу. А ты в разделе описаний не указал g как константу. Ты просто ей значение присвоил.
Program Homework; Var a,h,b,S:real; Begin Writeln('Enter the sides of the parallelepiped in centimeters'); Read (a,h,b); S:=2*((a*h)+(h*b)+(a*b)); Write('Parallelepiped area = ',S:6:3,('cm')); End.
Program Parallelepiped; Var a,b,h,S:real; begin Writeln('1)Введите число a'); Writeln('1)Введите число b'); Writeln('1)Введите число h'); Read(a,b,h); S:=2*(a*b+b*h+a*h); Writeln('Площадь параллелепипеда = ', S); end. Правильно?
program hell; var a,b,h,s: real; begin writeln('Введите стороны параллелепипеда:'); readln(a,b); writeln('Введите высоту параллелепипеда:'); readln(h); s:=(a*h)*4 + (b*h)*2 + (a*b)*2; writeln('Площадь равна ', s:10:2); end.
program PAROLILEPIPED; Var a, h, d, s:Integer; begin Writeln ('Введите a ='); read (a); writeln ('Введите h ='); read (h); writeln('Введите d ='); read (d); S:=4*(a*h)+(2*h*d); writeln('S параллелограмма = ', S); End.
мб это я тупой, но у меня просто висит "Воспроизведение". То есть я нажимаю "Выполнить", и выполнение просто зависает на 4 строчке (в панели вывода отображается только "ВВЕДИТЕ ВЫСОТУ ВЕТКИ"). Хелпаните плз, если знаете, в чем проблема. А так, урок годный, автору респект. Все понятно объяснил. Спасибо)
в чём здесь ошибка? я написал, но пишет что не хватает " ; " program time; var h,t,g: real; begin write ('Enter h'); read (h); g:=9,8; t:=sort (2*h)/g; write ('time = ',t); end.
Ребята, помогите. Пиши программу,всё как на видео, но в окне выводы пишет [CODEPAGE65001][READLNSIGNAL] и после этого ничего не могу ввести, что делать?
PROGRAM MAX3; VAR A,B,H,S:INTEGER; BEGIN WRITELN('ВВЕДИТЕ СТОРОНЫ A AND B'); READ(A,B); WRITE('ВВЕДИТЕ ВЫСОТУ H'); READ(H); S:=(A*B+B*H+A*H)*2; WRITE('ПЛОЩАДЬ ПОВЕРХНОСТИ ПАРАЛЛЕЛЕПИПЕДА =',S); end.
Помогите пожалуйста!! Буду очень благогдарен! Нужно написать программу, в которй пользователь может вводить 5 любых чисел с новой строки. Потом эти 5 чисел вывести на экран. Найти минимум и максимум и поменять их местами. Наппример я ввел 1 2 3 4 5 программа выводит минимум-1 максимум-5 52341 Пожаалуйста буду очень благодарен!
Ты за 30 минут рассказал и обьяснил больше, чем моя училка за 2 года.
maxxx какже я тебя понимаю
П-ПОНИМАЮ!
+
лол у меня училка это обьясняет 3 четвертиxd
Это около 15 уроков
15*40мин = НИЧЕГО (ЕСЛИ УЧИТУЧИЛСЯ)
30*1 = ПОЛЕЗНАЯИНФА ЕСЛИ СМОТРЕЛ ДМИТРИЯ
+
Хорошо что с задачником реальным работаешь. В принципе нормально и молодец что разжёвываешь каждый оператор, для новичков в самый раз.
+HD KINO Спасибо за комментарий
Дмитрий Лапко я сейчас учусь в техникуме и через год по профессии нужно учить paskal
Владимир Спицв , ну... paskal конечно классный язык программирования, но лучше для старта начинать с языка программирования
@@ДмитрийЛапко-л1ндякую
Ты лучший!!!
Объясняешь в 100 раз лучше нашего учителя в школе)))
Спасибо. Приятно.
@@phobos8808 я в 9 и нихера не вдупляю (((
@@phobos8808 мы в 9 создаем анимации в паверпоинте XDDD
@@reflex3627 Мы с Excel работаем....будущие бухгалтеры :D
Лол вы чё Паскаль изучаете? Мы на Пайтон перешли
Смотрю в 2019 году и удивляюсь. Почему у тебя так мало лайков? Объясняешь намного лучше учителей информатики в моей школе, спасибо тебе!
наши информатики вообще не учат, я сам своим пайтоном и хтмлом занимаюсь, а другие удивляются
потому что омерзителен, микро как у бича, хотя работает с компом мог и получше купить, попил бы воды, его причмокивание аж кровь из ушей, и как вообще может учить человек программированию который даже винду активировать у себя не может
@@Школа23сУИИЯНижневартовск хахпахаа лоооол
Спасибо огромное!!!!!!! Очень!!! Очень помогли!!! С Вашей помощью я написала свою первую программу!!!!! Спасибо огромное за доброе и ОЧЕНЬ полезное дело, которое Вы делаете!!!
Офигенный урок!!! Только за 1-ые 3 минуты я узнал то, что я ничего не знаю из этого школьного курса по информатике. А за десять понял что я даже азы не знаю. Желаю чтоб все учителя были такие!
Спасибо за чёткое, понятное объяснение. Благодаря этому видеоуроку я смогу сделать информатику. Видео было полезным и обучающим. Спасибо!
Дмитрий, Спасибо вам за это видео! Наконец -то начал понимать, что мы проходим в Вузе и как этим пользоваться. Вы мне очень помогли. Лайк однозначно!
Сначала я сам для себя учил питон.
Но когда я перешёл в новую школу, то там уже учили Паскаль, и теперь все новенькие должны учить паскаль👍👍👍
Спасибо! лучшего объяснения не найти! Супер!
Спасибо!!! Мучалась с Паскалем весь 9 класс, теперь разобралась!
большое спасибо, мы недавно приступили к изучению паскаля в школе и мне захотелось узнать больше о программировании, я смог выполнить задачу самостоятельно благодаря вам.
особенно с квадратиком удобно обьяснили)
До начала сессии не учил, теперь надо взяться за ум))
Спс, многое узнал))
Всегда пожалуйста.
Прекрасный учитель!!! спасибо за такой подробный туториал
Отличный урок. Спасибо вам
Спасибо за помощь! Всё просто и понятно.
я уже второй курс колледжа на программиста, щас паскаль хреначим, но так как я постоянно болею соответственно вообще ничего не понимаю, когда все уже пишут длинные проги по 50 строк, я вообще ничего не умею. Сейчас вот ура написала первую программу по вашему дз. СПАСИБО ВАМ!!!
На уроках информатики мы сначала учились программировать на компьютерах. но когда у нас были контрольные работы, училка заставляла писать программы на листочке, в то время когда другая группа писала на компьютерах, понимаете? Программы на листочках писать! Ну а если серьезно. то очень полезное видео, очень хорошо все объяснил, спасибо👍
Спасибо Димон всё тщательно пояснил
вступаю на путь программиста, думаю твои уроки будут кстати.
Канал Люма :3 и как оно?
Не поможет) Паскаль это уже мертвый язык начни лучше с c++
@@серыйхомячок ,начинать надо с мелкого ,заканчивая большим.
@@sabeit5647 Я начинал с питона
ну и как там ?
Огромное вам спасибо! Ваши видео очень полезны.
Спасибо за хороший урок)
+KoMoD TV Большое спасибо.
Лайк однозначно.
Собираюсь сдавать информатику, а мы проходим именно паскаль, поэтому ваши уроки очень пригодятся. И да, вы довольно хорошо объясняете. Стоило бы конеяно сказать о том что именно делает "read" но на данный момент я уже понял.
А где справочник. ты закрыл доступ к нему
Все понятно,до мелочей)Продолжай в том же духе)
Большое вам спасибо за урок! Очень информативно и познавательно. Благодаря вам понял то, чего не мог понять в школе! :D
Хотелось написать, что это замечательное видео(и последующие) именно с них началось моё изучение Pascal и любовь к программированию(тк в школе ничего понятно не объяснили)
Хочу сказать Вам огромное спасибо, за все что вы делаете и что мотивируете учиться
P.s я смотрела это в 8 классе, а сейчас в 9 классе получила красный аттестат
3 года назад начал с этого курса :)
Ничего лучше нету. Лучшее, что я когда-либо смотрел.
подписка и лайк! Жаль на ютубе это не очень ценится(
Первый урок очень понравился. Молодец. Спасибо. Буду смотреть дальше.!!!!!
Я даже не заметил что прошло 30 минут)
Маэстро вы лучший!
спасибо большое
объясняете наглядно и понятно
отдельное спасибо за задачник, легко и быстро скачала :)
Program h1;
VAR A,B,H,S:INTEGER;
BEGIN
WRITE('ВВЕДИТЕ СТОРОНЫ И ВЫСОТУ параллелепипеда');
READ (A,B,H);
S:=2*(A*B)+2*(A*H)+2*(H*B);
WRITELN('S=',S);
END.
Почему integer? Там же вещественные числа... Думаю, real
Мы в универе на дистанционном обучение, учимся по твоим видео)
Спасибо. Привет преподу!
Объясняешь очень круто, Спасибо!!!!!
Спасибо автору,классно видео
Спасибо тебе большое за этот ролик,я ничего не понимала до этого в програмировании теперь понимаю 👍💖
Спасибо, все очень круто)
Ваауу, спасибо большое, всё очень понятно и быстро 👍
Спасибо, огромное....
Классно! Большое спасибо! Да благословит вас Бог!
Дмитрий а вы знаете Perl? хотелось бы в вашем исполнении. очень хорошо объясняете. если канал еще не забросили.
Спасибо! Подписалась 😊
Искал что хотел , а то на канале "школа программистов" нормально не объясняет все на лету" Лайк!
Очень хорошее видео. Дмитрий вам респект!
За 30 мин объяснил материал , который я не смог понять за год
PROGRAM VLAD1;
VAR A,B,H,S:INTEGER;
BEGIN
WRITE('ВВЕДИТЕ ТРИ ЧИСЛА');
READ(A,B,H);
S:=2+(A*B+A*H+B*H);
WRITE('ПЕРИМЕТР = ',S);
END.
Вот что у меня получилось это мой первый урок программирования
Класс! Спасибо большое!
Спасибо, чувак, круто объяснил!
Очень хорошо объяснил, спасибо!
Афигеть я до этого момента вообще был нулём, спасибо огромное!
спасибо, мне как 12-летнему школьнику было все понятно
Ну мне говорли что паскаль нужно выучить, он сложный но в нём тебе нужно все очень детально розписывать, это поможет понимать в будущем лучше что ты на других языках делаешь, как работает как устроено и т. д.
нету доступа к задачнику. можно авторов и издательство?
Спасибо большое, я разобралась наконец то)) 😌
ты молодец спасибо большое))))))
доработаная программа
var a,b,s,p:integer;
begin
textbackground(blue);
clrscr;
gotoxy (25,5);
textcolor(green);
write ('Введите первое число: ');
read (a);
p := (a+b)*2;;
textcolor(red);
write ('Периметр=');
writeln (p);
textcolor(green);
write ('Введите второе число: ');
read (b);
s := (a*b);;
textcolor(red);
write ('Площадь=');
writeln (s);
textcolor(black);
end.
Спасибо, наставник
Удачи продалжай в томже духе
пасиба очень помог другие сразу начинают с непонятного а ты всёобьяснил я сразу понял)
Для проверки-
program wan;
VAR H,A,B,S:integer;
begin
write('введите высоту');
read(H);
write('ведите длину');
read(A);
write('ведите ширину');
read(B);
S:=(2*A*B)+(2*A*H)+(2*B*H);
write(S);
end.
Домашние задание:
Program Filatov_3;
var a,h,b,S:real;
begin
writeln('Здравствуйте!');
write('Введите стороны параллелепипеда в сантиметрах:');
read(a,h,b);
S:=2*((a*h)+(h*b)+(a*b));
write('Площадь параллелепипеда = ',S,('см'));
end.
Годится
Program Egor1;
var S, a, b, h: real;
Begin
writeln ('Введите длину параллелепипеда');
readln (a);
writeln ('Введите ширину параллелепипеда');
readln (b);
writeln ('Введите высоту параллелепипеда');
readln (h);
S := 2*(a * b + a * h + b * h);
writeln ('Ответ');
write ('Площадь поверхности параллелепипеда S равна ',s:1:2 , ' кв. см.');
end.
h читается АШ в математике (эта традиция пошла из 19 века, когда одной из лидирующих стран была германия (... он из германии туманной принёс учёности плоды...)), а по английски читается АЙЧ.
30:05 если я напишу вместо write writeln то на выводе 15 перенесется на след строку от слов введите высоту ветки????
да, и, зачастую это намного удобнее и эстетичнее
Дмитрий доброе. Как можно с Вами связаться. Ну скажем через комментарий. Не могу решить две задачи. Сможете оказать помощь? В программировании еще слаб.
Посмотрел --спасибо
program Parallelogram;
var a,b,h,S: real;
begin
writeln('Enter the values of a,b,h');
Read(a,b,h);
S:=2*((a*b)+(b*h)+(a*h));
Write('Surface area of parallelogram= ',S);
end.
Нужно ли еще что-то добавить?
спасибо, к кр по инфе готовлюсь
program vor;
var h,a,b,s:real;
begin
writeln('Введите сторону A');
read(a);
writeln('Введите сторону B');
read(b);
writeln('Введите сторону H');
read(h);
s:=2*(a*b+a*h+b*h);
writeln('Площадь = ',s);
end.
Program Vasya;
VAR a,b,h,S:real;
begin
write('Введите значения a');
read(a);
write('Введите значения b');
read(b);
write('Введите значения h');
read(h);
S:= 2*(a*b+ b*h+ a*h);
write(S);
end.
вот дз)
Спосибо за доступность
program .....i;
var a,b,c,s:integer;
begin
write ('введите данные сторон');
read(a,b,c);
s:=2*(a*b + b*c + a*c);
write ('площадь боковой поверхности',s);
end.
За задачник лайк
Помогите разобраться !
Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последо-вательность).
Количество чисел не превышает 1000. Введённые числа по модулю
не превышают 30 000.
Программа должна вывести одно число: количество чётных чисел, кратных 9.
6:35 а в какую программу он зашел? Ее надо устанавливать? Просто в word нету эллипс и все такое.
Это libreoffice. Для написания программы, рисовать алгоритм не обязательно. Это для наглядности.
@@ДмитрийЛапко-л1н хорошо. Спасибо
Не подскажете, почему в моей программе выдается сообщение об ошибке 215?
uses crt;
var a:longint;
d,b,c:integer;
begin
d:=34; b:=23; c:=52;
a:=100*d+1000*b+10000*c;
write(a);
readln;
end.
Спасибо, но можно просьбу, запиши видео как решать задания 5 номеров?) Спасибо за твои уроки, начал хоть что-то понимать.
Ок, спасибо.
Program Razvertka;
var
A, B, H, Sum: real;
begin
Write ('Введи H, A и B: ');
read (H, A, B);
Sum:=2*(H*B+H*A+A*B);
Write('Площадь поверхности параллелепипеда равна: ', Sum);
end.
Мне кажется, или ты немного не правильно решил задание 6.2 , точнее решил правильно, но условие задачи прочитал не так, там написано: Ускорение свободного падения g = 9,8 м/с2 укажите в разделе описаний как константу. А ты в разделе описаний не указал g как константу. Ты просто ей значение присвоил.
Да, ты прав. Это упустил.
А что значит "Как константу"?
Константа - это величина которая в ходе программы не изменяется. Пример объявления : const g:=9.8;
То чувство когда поскаль забыли и щас популярен пайтон, джава скрипт и т.д
мы до сих пор проходим в школе паскаль)))))
@@ashlozhka мы тоже)
Program Homework;
Var a,h,b,S:real;
Begin
Writeln('Enter the sides of the parallelepiped in centimeters');
Read (a,h,b);
S:=2*((a*h)+(h*b)+(a*b));
Write('Parallelepiped area = ',S:6:3,('cm'));
End.
Program Parallelepiped;
Var a,b,h,S:real;
begin
Writeln('1)Введите число a');
Writeln('1)Введите число b');
Writeln('1)Введите число h');
Read(a,b,h);
S:=2*(a*b+b*h+a*h);
Writeln('Площадь параллелепипеда = ', S);
end. Правильно?
тЫ Лучший!!!!
program hell;
var a,b,h,s: real;
begin
writeln('Введите стороны параллелепипеда:');
readln(a,b);
writeln('Введите высоту параллелепипеда:');
readln(h);
s:=(a*h)*4 + (b*h)*2 + (a*b)*2;
writeln('Площадь равна ', s:10:2);
end.
Вот этот безымянный поинт. И либер офис врайт попадают на тему?
2:32 и тут мне стало страшно...
Ну как? Справился?
Урок очень понравился, но почему Вы читаете слово write как "врайт"? В английском языке произносится "райт", буква W не читается вовсе.
Мне кажется он за 6 лет научился это произносить
program PAROLILEPIPED;
Var a, h, d, s:Integer;
begin
Writeln ('Введите a =');
read (a);
writeln ('Введите h =');
read (h);
writeln('Введите d =');
read (d);
S:=4*(a*h)+(2*h*d);
writeln('S параллелограмма = ', S);
End.
Спасибо огромное!
у тебя не лицензированная винда!
спасибо большое
мб это я тупой, но у меня просто висит "Воспроизведение". То есть я нажимаю "Выполнить", и выполнение просто зависает на 4 строчке (в панели вывода отображается только "ВВЕДИТЕ ВЫСОТУ ВЕТКИ"). Хелпаните плз, если знаете, в чем проблема. А так, урок годный, автору респект. Все понятно объяснил. Спасибо)
Код пришлите.
в чём здесь ошибка? я написал, но пишет что не хватает " ; "
program time;
var h,t,g: real;
begin
write ('Enter h');
read (h);
g:=9,8;
t:=sort (2*h)/g;
write ('time = ',t);
end.
t:=sqrt(2*h/g); {sqrt kvadratnij korenj} (((((SQRT))))
Ребята, помогите.
Пиши программу,всё как на видео, но в окне выводы пишет [CODEPAGE65001][READLNSIGNAL] и после этого ничего не могу ввести, что делать?
как откуда ты это узнал
PROGRAM MAX3;
VAR A,B,H,S:INTEGER;
BEGIN
WRITELN('ВВЕДИТЕ СТОРОНЫ A AND B');
READ(A,B);
WRITE('ВВЕДИТЕ ВЫСОТУ H');
READ(H);
S:=(A*B+B*H+A*H)*2;
WRITE('ПЛОЩАДЬ ПОВЕРХНОСТИ ПАРАЛЛЕЛЕПИПЕДА =',S);
end.
Помогите пожалуйста!! Буду очень благогдарен! Нужно написать программу, в которй пользователь может вводить 5 любых чисел с новой строки. Потом эти 5 чисел вывести на экран. Найти минимум и максимум и поменять их местами. Наппример я ввел 1 2 3 4 5
программа выводит
минимум-1
максимум-5
52341
Пожаалуйста буду очень благодарен!
Спасибо!
А что делать если у меня аутизм и мои оценки 3?
VAR A, B, C, P: INTEGER;
BEGIN
WRITE (' ВВЕДИТЕ ДЛИНУ =', A);
READ ( A);
WRITE (' ВВЕДИТЕ ШИРИНУ =', B);
READ ( B);
WRITE (' ВВЕДИТЕ ВЫСОТУ =', C);
READ ( C );
P:= 2*(A*B+A*C+B*C);
WRITE ('ПЛОЩАДЬ ПОВЕРХНОСТИ = ',P);
END.