<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var (a,b):=ReadReal2;
if a<>b then Writeln(Min(a,b))
else Writeln('РАВНЫ')
end.
<u>№2</u>
begin
var (a,b):=ReadInteger2;
if a.IsEven then Write(a,' ');
if b.IsEven then Write(b,' ');
if a.IsOdd and b.IsOdd then Writeln('НЕТ')
end.
Var
i, kor, koz, ov: integer;
begin
for i := 1 to 40 do
begin
koz := i;
kor := 2 * koz;
ov := 40 - (koz + kor);
if ov < 0 then break;
writeln('Овец: ', ov, ' Коров: ', kor, ' Коз: ', koz);
end
end.
<span>Термином "информатика" обозначают совокупность дисциплин, изучающих свойства информации, а также способы представления, накопления, обработки и передачи информации с помощью технических средств.</span> На Западе применяют другой
термин «computer science» – компьютерная наука.
Ядро информатики – информационная
технология как совокупность конкретных технических и программных средств, с
помощью которых мы выполняем разнообразные операции по обработке информации во
всех сферах нашей жизни и деятельности.Иногда <u /><em>информационной технологией</em><span> называют компьютерной технологией или даже прикладной информатикой.
</span>Центральное место в ПРИКЛАДНОЙ ИНФОРМАТИКЕ занимает <em>компьютер</em> (от английского слова COMPUTE - вычислять) - техническое устройство для обработки информации. Его также часто называют <em>электронной вычислительной машиной</em> (ЭВМ<span>).
</span>В школьном курсе информатики вы будете изучать <u>ОСНОВЫ СОВРЕМЕННОЙ ИНФОРМАЦИОННОЙ ТЕХНОЛОГИИ.</u>
Познакомьтесь с принципами работы программно-технических с редакторами - PAINTBRUSH, WORD, EXCEL.
Var
x, n, ans:integer;
begin
Readln(x, n);
while (n > 0) do
begin
ans := ans + x;
n:= n - 1;
end;
Writeln(ans);
end.
N = 256
N = 2 ** i
i = 8
k = 40 * 32 * 48 = 61440 символов
I = k * i
I = 61440 * 8 = 491520 бит = 61440 Байт = 60 Кбайт
Ответ: 60 Кбайт
