For i = 1 To 9
For j = 1 To 9
s$=String(i*j)
if length(s$)=1 then s$=" "+s$ else if length(s$)=2 then s$=" "+s$
Print s$;
Next j
Print
Next i
End
Результат работы программы:
1 2 3 4 5 6 7 8 9
2 4 6 8 10 12 14 16 18
3 6 9 12 15 18 21 24 27
4 8 12 16 20 24 28 32 36
5 10 15 20 25 30 35 40 45
6 12 18 24 30 36 42 48 54
7 14 21 28 35 42 49 56 63
8 16 24 32 40 48 56 64 72
9 18 27 36 45 54 63 72 81
Замечание: таблица на самом деле ровная, это тут ширина пробела и ширина цифры различна, поэтому сдвиг.
A:=336/8=42 div - это челочисленое деление
d:= 0
Program First;
var
A, b, a, d : integer;
begin
A:= 336;
b:= 8;
a:= A div b;
d:= A mod b;
writeln(a, d);
end.
Для заголовков лучше таймс нью роман жирный 16, а для подзаголовков тот же шрифт но уже курсив и 14
Пусть V1 - объем цилиндра, а V2 - объем конуса, тогда:
const
pi=3.14;
var
V1,V2,R,h:real;
begin
Write('Введите радиус и высоту: '); Read(R,h);
V1:=pi*sqr(R)*h; V2:=V1/3;
Writeln('Объем цилиндра ',V1:0:5,', объем конуса ',V2:0:5)
end.
<em><u>Тестовое решение:</u></em>Введите радиус и высоту: 5.5 12.81
Объем цилиндра 1216.75785, объем конуса 405.58595
Шалтай-Болтай Сидел на стене. Шалтай-Болтай Свалилс<u><em>Я</em></u><em></em> во сне. Вс<em><u>Я</u></em><em><u /></em><u /> Королевска<em><u>Я</u></em> Конница, Вс<em><u>Я</u></em> королевска<u><em>Я</em></u> рать Не может Болта<em><u>Я</u></em>, Шалта<em><u>Я</u></em><em><u /></em><u />-Болта<u><em>Я</em></u>, Болта<u><em>Я</em></u>-Шалта<em><u>Я</u></em><u><em /></u> собрать!
10 букв я