Pascal:
program z1;
var i, k, n, ch:integer;
begin
n:=0;
ch:=0;
for i:=1 to 15 do
begin
writeln('Input number:');
readln(k);
if(k mod 2=0) then
ch:=ch+1
else
n:=n+1;
end;
writeln('Нечетных было ', n);
writeln('Четных было ', ch);
end.
Носители информации - это объекты, на которых информация хранится.
По-моему бит а там не знаю
Var
price, prepay:integer;
begin
Write('Введите стоимость квартиры -> ');
Readln(Price);
Write('Введите предоплату за квартиру в процентах -> ');
Readln(prepay);
Case Prepay of
20:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.05);
30:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.06);
50:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.08);
100:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.1);
end;
end.
<u>Пример:</u>
Введите стоимость квартиры -> 1000000
Введите предоплату за квартиру в процентах -> 100
Общая стоимость квартиры -> 900000
1) Начало
2) получаем значение ширина = x
3) получаем значение длины = y
4) Если ( значение x = число ) , то пункт 5 . Если нет , то выполняем пункт 2
5) Если ( значение y = число ) , то пункт 6 . Если нет , то выполняем пункт 3
6) x*y=S (S площадь)
7)Вывести S
8) Конец