1. Написать программу в Паскале, в результате выполнения которой на экране будут выведены 5 строк: Меня зовут (фамилия, имя) Я у
1. Написать программу в Паскале, в результате выполнения которой на экране будут выведены 5 строк: Меня зовут (фамилия, имя) Я учусь в 7 «__» классе гимназии 524 Мое хобби ______________________ Периметр прямоугольника равен 30 Сегодня ярко светит солнце!
2. В трёх опросах ученик получил оценки. Составьте алгоритм и программу, которая определит среднее значение оценок, полученных учеником в трёх опросах. Оценки ввести с клавиатуры. Результат вывести на экран.
3. . Написать программу нахождения периметра прямоугольника по известным сторонам a и b (a и b – целые числа, вводимые с клавиатуры)
1. Программа "Анкета": program anketa; var a,b,d:string; c:char; begin writeln('Введите ваши имя и фамилию в именительном падеже: '); readln(a,b); writeln('Введите букву класса: '); readln(c); writeln('Введите ваше хобби: '); readln(d); writeln('Меня зовут ',a,' ',b,';'); writeln('Я учусь в 7 "',c,'" классе гимназии 524;'); writeln('Моё хобби - ',d,';'); writeln('Периметр прямоугольника равен 30'); writeln('<span>Сегодня ярко светит солнце!</span>') end. 2. Программа "Опросы": program oprosy; var a,b,c:integer; d:real; begin writeln('Введите ваши оценки по пятибалльной шкале: '); readln(a,b,c); d:=(a+b+c)/3; writeln('Ваша средняя оценка за тесты - ',d,'.'); end. 3. Программа "Периметр прямоугольника": program perimetr; var a,b,c:integer; begin writeln('Введите стороны прямоугольника: '); readln(a,b); c:=(a+b)*2; writeln('Периметр прямоугольника = ',c,'.'); end.
Const n =5; var a:array[1..n] of integer; i,max:integer; begin writeln('Введите 1 элемент массива'); readln(a[1]); max:=a[1]; for i:=2 to n do begin writeln('Введите ', i,' элемент массива'); readln(a[i]); if a[i]>max then max := a[i]; end; writeln('Максимальный элемент массива равен ',max); end