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.
// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
А) Вкус - язык
Б) Обоняние(нос), зрение (глаза)
В) зрение (глаза)
Г) Осязание - пальцы
Д) Обоняние (нюх) зрение(глаза) слух(уши)
Е) зрение (глаза) осязание, слух
Ответ:
Так как язык не указан, предлагаю решения на 2х языках - Python и C#
<em>Python:</em>
def main():
marks = list(map(int, input().split()))
assert len(marks) == 10
return sum(marks)/10
if __name__ == '__main__':
print(main())
<em>C#</em>
using System;
namespace Global
{
class App
{
int[] marks = new int[10];
double summ = 0;
static void Main(string[] argv)
{
App Obj = new App();
Obj.Run();
}
public void Run()
{
for(int i = 0; i < 10; i++)
{
marks[i] = Convert.ToInt32(Console.ReadLine());
}
for (int i = 0; i<10; i++)
{
summ = summ + marks[i];
}
Console.WriteLine(summ / 10);
Console.ReadKey();
}
}
}
Объяснение:
На случай проблем с копированием кода оставляю ссылки на исходный код на сервисе pastebin.com:
Python: https://pastebin.com/a74HdSQU
C#: https://pastebin.com/6JQA5GvX
Обе программы протестированы и полностью выполняют поставленную задачу
1) начало
2) скрипт(алгоритм)
3) конец