1)20+50+63=133(всего денег потрачено на продукты).
2) 500-133=367(остаток денег, после покупки продуктов)
а как в паскале делать, не догадываюсь, что если, то есть) не судите строго, хоть чем-то помогла))
1) Системный блок, монитор , клавиатура, мышь
2)Процессор -это важнейшее устройство компьютера, его мозг , предназначен для выполнения вычисления и исполнения.
3)для запоминания информации
4)устройство ввода : клавиатура, мыши, игровые манипуляторы.
устройство вывода: мониторы.
5)Порт - это натуральное число , записываемое в заголовках протоколов транспортного уровня модели OSI. Используется для определении процесса- получателя пакета в пределах одного хоста.
6)Материнская плата -печатная плата, являющаяся основой построения модульного устройства, например- компьютера. Материнская плата : микро процесс, процессор, адаптеры устройств, оперативная память, разъем для дисковых накопителей.....
7)Системная шина выполняет функцию : передача информации между платами "ЦП Память, и картами.....
Вот на Pascal (Console Aplication) :
var
a:Integer;
begin
Writeln('Vvedite nominal valuti');
Readln(a);
case (a mod 10) of
1:
if (a=11) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rubl');
end;
2,3,4:
if (a=12) or (a=13) or (a=14) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublya');
end;
0,5,6,7,8,9:
if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublei');
end;
end;
Readln;
<span>end.</span>
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (Y>=0)and(Y<=X+4)and(Y<=4-X) then WriteLn('(',X,',',Y,') попадает в заштрихованную область')
else WriteLn('(',X,',',Y,') - мимо')
End.