<span>var
a, b, S, : real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
s := a * b;
write('Площадь прямоугольника -- ', s, ';
end<span>.</span></span>
1. face= <font> "Название шрифта"</font>
2. border ="Число" ширина таблица
3. Цвет ячейки bgcolor="Цвет"
4.1 Количество строк
4.2 Количество столбцов - атрибут cols="Число"
Var x: byte;
Begin
Write(‘ введите число от 1 до 7')
Readln(x);
Case x of
1: writeln(‘понедельник’);
2: writeln(‘вторник’);
3: writeln(‘среда’);
4: writeln(‘четверг’);
5: writeln(‘пятница’);
6: writeln(‘суббота’);
7: writeln(‘воскресенье’);
end;
Readln
End.
я не помню как чтоб выдало ошибку ..пили если больше х то ошибка
100×1000000/8=12500000 байт в секунду