4) 63 Кбайта,
т.к 64*2=128 бит
128*36=4608 бит
4608*14=64512 бит
64512 переводим в Кбайты
64512/1024=63 Кбайта
#include <iostream>
using namespace std;
int main() {
int a, b, min;
cin >> a;
cin >> min;
for (int c = 1; c < a; c++) {
cin >> b;
if (min > b && b % 2 == 0) {
min = b;
}
}
cout << min << endl;
return 0;
}
Program Name; var i,s:integer; begin for i:=100 to 150 do begin if(i mod2)>0 then s:=s+i end WriteLn('Сумма равна: s) end.
Var a:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(26);
writeln(a[i]);
if a[i] > 12 then k := k + 1;
end;
writeln('Элементов массива превышающих 12: ',k);
end.
Язык программирования не указан, поэтому был выбрана система PascalABC.Net
const
Gl=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы',
'Э','э','Ю','ю','Я','я'];
stop='$';
var
c:char;
n:integer;
begin
Writeln('Вводите текст по одному символу, завершив ввод символом ',stop);
n:=0;
repeat
ReadLn(c);
if c in Gl then Inc(n)
until c=stop;
Writeln('Количество гласных букв равно ',n)
end.
Напоминаю, что в Паскале ввод каждого отдельного символа с клавиатуры должен завершаться нажатием клавиши Enter!