var s1,s2: string; p:integer;
begin
writeln('Введите фамилию и имя:');
readln(s1);
p:=pos(' ',s1);
s2:=copy(s1,p+1,1)+'. '+copy(s1,1,p-1);
writeln(s2);
end.
Пример:
Введите фамилию и имя:
Иванов Петр
П. Иванов
Ответ:
141
Объяснение:
15 МБ это 15360 Кбайт
128 байт это 0.125 Кбайт
2.5 МБ это 2560 Кбайт
15360 + 0.125 + 2560 = 17920.125
17902/128 = 140.000977
т. к. есть остаток следовательно нужен 141 кластер
A=9, b=8, c=2
if (9>8) and (8>2) ⇒ if True and True ⇒ if True и выполняется оператор после then:
x=2*9+8+2=18+8+2=28
Ответ: х=28
Заполнить массив случайными числами из промежутка 1-100 и определить в массиве, сколько значений чётных и сколько нечётных.