Если человек бежит за деньгами, он безумен; если он их держит, он капиталист; если он их тратит,
он плейбой; если он не получает его, он не-делает-хорошо; если он не пытается получить его, ему не хватает
честолюбие. Если он получает его, не работая на него, он паразит; и если он накапливает его после
всю жизнь упорного труда, люди называют его дураком, который никогда ничего не получал от жизни.
С 1965 года нам известно о так называемом законе Мура: «Количество транзисторов, размещаемых на кристалле интегральной схемы, удваивается каждые 24 месяца, что приводит к появлению новых технологий, росту производительности и прорывам в области электроники». Излагая этот закон общественности, один из отцов Intel не мог предположить, что инженеры на протяжении целых пятидесяти лет смогут придерживаться его. Не мог он и предположить, что в 2014 году сложности с соблюдением этого закона начнутся и в самой компании Intel. Ведь для увеличения количества транзисторов в процессоре нужно уменьшать технический процесс производства. По-простому, уменьшать физический размер транзисторов и увеличивать их плотность.
Чтобы найти площадь прямоугольника, нужно его длину умножить на ширину. то есть ели у нас прямоугольник со сторонами
8
5. 5
8
то нам надо 8см умножить на 5см
8×5=40квадратных сантиметров
ответ:40см в квадрате
Var
m, n, p: integer;
begin
Write('Введите свой номер в группе: ');
Readln(n);
n := n * 12;
p := 1;
repeat
m := n mod 10;
p := p * m;
n := n div 10
until n = 0;
Writeln('Результат ', p)
end.
Тестовое решение:
Введите свой номер в группе: 13
Результат 30
Program D1KPxx18;
uses crt;
var
x,y,a:real;
label 1,2,3,4;
begin
4:writeln('Выберите что вам нужно: 1-синус числа, 2-косинус числа, 3-выход');
read(a);
if a=1 then
goto 1;
if a=2 then
goto 2;
if a=3 then
goto 3;
1:begin
writeln('Введите "х"');
read(x);
y:=sin(x);
writeln('Синус "х" равен ',y);
writeln('Ещё? 1-No, 2-Yes');
read(a);
if a=2 then goto 4
else goto 3;
end;
2:begin
writeln('Введите "х"');
read(x);
y:=cos(x);
writeln('Косинус "х" равен ',y);
writeln('Ещё? 1-No, 2-Yes');
read(a);
if a=2 then goto 4
else goto 3;
end;
3:writeln('Пока!');
<span>end.
Программа основана на метках, перемещая метки можно переходить к разным местам программы, тем самым использую их как меню... это если я правильно понял что именно значило:"Организовать меню")))
</span>