1)
program s_parallelogramm;
var
a,h,s: real;
begin
write('Основание = '); readln(a);
write('Высота = '); read(h);
if ((a=0) or (a<0)) or ((h=0) or (h<0)) then writeln('Ошибка! Значения основания и высоты должно быть натуральными числами')
else
begin
s:=a*h;
writeln('Площадь (S) параллелограмма = ', s);
end;
end.
2)
program sp_kvadrata;
var
a,p,s: real;
begin
write('Сторона квадрата = '); readln(a);
p:=4*a;
s:=sqr(a);
writeln('Периметр (P) квадарата = ', p);
writeln('Площадь (S) квадарата = ', s);
end.
3)
program e_kinet;
var
m,v,e: real;
begin
write('Масса тела (m, кг) = '); readln(m);
write('Скорость тела (v, км/ч) = '); readln(v);
e:=m*sqr(v)/2;
writeln('Кинетическая энергия (Ек, Дж) = ', e);
end.
1)
program vivod_chisel;
var
i, a: integer;
begin
a:=11;
for i:=1 to 45 do
begin
write(a:3);
a:=a+2;
end;
end.
2)
program sym_trex_chisel_krat5;
var
mas: array[1..900] of integer;
i,a,sym: integer;
begin
a:=100;
sym:=0;
for i:=1 to 900 do
begin
mas[i]:=a;
if mas[i] mod 5 = 0 then sym:=sym+mas[i];
a:=a+1;
end;
writeln('Сумма трехзначных чисел, кратных 5 = ', sym);
end.
Var i: Integer;
begin
writeln('Введите число');
readln(i);
if (i>9) and (i<100) then writeln('Является') else
writeln('Не является');
end.
Что бы перевести число из 10-чной СС в СС с другим основанием (в данной задаче с основанием 8 и 16) надо это число последовательно делить на основание новой СС, записывая остатки от деления в обратном порядке. Это и будет искомое число. При этом учитываем, что двузначные остатки обозначаются буквами английского алфавита, например 10 это A, 11 - B, 12 - C и т.д.
Таким образом получаем:
79 : 2 = 39 (остаток 1)
39 : 2 = 19 ( 1 )
19 : 2 = 9 ( 1 )
9 : 2 = 4 ( 1 )
4 : 2 = 2 ( 0 )
2 : 2 = 1 ( 0 )
1 : 2 = 0 ( 1 )
Собираем остатки в обратном порядке, получаем число 100111,
т.е. 79 (в 10 СС) = 100111 (в 2 СС)
79 : 16 = 4 ( ост. 15 ) ..... 15 соответствует букве F
4 : 16 = 0 ( 4 )
<span>т.е. 79 (в 10 СС) = 4F (в 16 СС)
</span>
Аналогично получаем:
<span>79 (в 10 СС) = 117 (в 8 СС)
169 </span><span>(в 10 СС) = 10100100 (в 2 СС)
</span>169 <span>(в 10 СС) = 244 (в 8 СС)
</span>169 <span>(в 10 СС) = A4 (в 16 СС)</span>