program test;
var a, b: integer;
begin
write('Enter A: ');
readln(a);
write('Enter B: ');
readln(b);
writeln('Area = ', a*b);
readln;
end.
1) Оперативная память
2)Процессор
3)Монитор
4)Аппаратное обеспечение (не уверен)
5)Двоичный код
<span>Через поле и лесок подаётся голосок. <span>
Он
бежит по проводам -
Скажешь здесь, а слышно там. (телефон)
</span></span>
Под крышей - четыре ножки,
На крыше - суп да ложки. (Стол)<span>
</span>Хоть по объёму и мала,
Информацию хранит она.
Знаем все устройство это
<span>Называется……
</span>
Адрес, имя, телефоны, все запишет, все запомнит!
<span>И девчонке и мальчишке, всем поможет эта книжка!
</span>
Скромный серый колобок, Длинный тонкий проводок, Ну а на коробке - Две или три кнопки. В зоопарке есть зайчишка, <span>У компьютера есть ...
</span>
Стоит весёлый, светлый дом.
Ребят проворных много в нём.
Там пишут и считают,
<span>Рисуют и читают.</span>
И где рисунок?
Часы могут располагаться в одном из двух положений, а три индикатора - в любом порядке. Считаем: 123, 132, 213, 231, 312, 321 - 6 вариантов. Итого 6*2=12 вариантов.
Var
a,b,c:real;
begin
Write('Сколько кг клубники собрали обе девочки? '); Read(a);
Write('Сколько кг клубники собрала Вера? '); Read(b);
c:=a-b; { собрала Валя }
if b>c then Writeln('Вера собрала на ',b-c,' кг больше')
else
if c>b then Writeln('Валя собрала на ',c-b,' кг больше')
else Writeln('Клубники собрано поровну')
end.
<u>Пример</u>
Сколько кг клубники собрали обе девочки? 3.4
Сколько кг клубники собрала Вера? 1.8
Вера собрала на 0.2 кг больше