Var a,b: Integer;
begin
writeln('Введите число a:');
readln(a);
writeln('Введите число b:');
readln(b);
writeln(a,'² = ',a*a);
writeln(b,'² = ',b*b);
end.
1. название программы
2. подключение библиотеки
3 и 4. объявление переменных и их типов
5. объявление массива
6. начало программы
7. вывод на экран сообщения о необходимом действии
8. считывание введенных с клавиатуры данных
9. конец ввода массива
10. обнуление переменной
11. начало цикла
12. формула подсчета переменной
13. вывод получившегося числа на экран
14. задержка экрана (чтобы увидеть результат)
15. конец программы
Ответ:
2550
Объяснение:
Алгоритм находим сумму вида 2+4+6+...+98+100.
Это сумма арифметической прогрессии и она равна
(2 + 100) / 2 × 50 = 102 / 2 × 50 = 51 × 50 = 2550
<span><span>const n=3;
type student=record
fam:string[20];
year:integer;
sex:string[1];
kurs:integer;
sport:string[30];
end;
var x:array[1..n] of student; i,j:integer;
p:student;
begin
for i:=1 to n do
with x[i] do begin
writeln('сведенья о ',i,' студенте:');
writeln('фамилия: ');
read(fam);
writeln('год рождения: ');
read(year);
writeln('пол( м или ж ): ');
read(sex);
writeln('курс: ');
read(kurs);
writeln('вид спорта: ');
read(sport);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i].fam>x[j].fam then begin
p:=x[i];
x[i]:=x[j];
x[j]:=p;
end;
for i:=1 to n do begin
with x[i] do
if (sex='ж') then writeln('Фамилия студентки: ',fam,' Курс: ',kurs,' Вид спорта: ',sport);
end;
end.</span></span>
<em>1.Информация - это сведения о чем либо. О предметах, событиях, явлениях и процессах окружающего нас мира.</em>
<em>Книги,интернет,телевизор, школа.</em>
<em>2. Графическая, звуковая, текстовая, числовая.</em>
<em>3. Объективность информации, достоверность информации, полнота информации, точность информации, актуальность информации, полезность (ценность) информации.</em>