Напишите программу «Визитная карточка», которая выводила бы на экран хорошо
оформленные ваши личные данные: имя, фамилию, год рождения, адрес, телефон.
Используйте разные цвета, хорошо скомпонуйте.+ Используя возможности Модуль Sounds для «улучшения» программы «Визитная карточка»
Program Card;
Uses Sounds,CRT;
var n: sound;
begin
n:= LoadSound('C:\Users\Кабинет 36\Desktop\проги\gh.wav');
PlaySound(n);
Sleep(SoundTime(n));
DestroySound(n);
ClrScr;
TextColor(Blue);
TextBackGround(White);
GotoXY(1,8);
write('Фамилия: Иванов');
GotoXY(1,10);
write('Имя: Иван');
GotoXY(1,12);
write('Год рождения: 15.08.2000');
GotoXY(1,14);
write('Адрес:страна Россия,г. Киров ,ул. Комсомольская, 34а');
GotoXY(1,16);
write('Телефон: 89624003546');
StopSound(n);
end.
программа написанна, но выдаёт ошибку в 5 строке.
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Chislo, Count, Summa, n: integer;
begin
Summa := 0;
Count := 0;
readln(Chislo);
while Chislo > 0 do
begin
n := Chislo mod 10;
if odd(n) then
begin
Summa := Summa + n;
inc(Count);
end;
Chislo := Chislo div 10;
end;
writeln('Сумма нечетных цифр числа: ', Summa);
writeln('Кол-во нечетных цифр числа: ', Count);
writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);
end.
Объяснение: