var
a,b,c:integer;
begin
write('a: ');
readln(a);
write('b: ');
readln(b);
write('c: ');
readln(c);
writeln('sum = ',a+b+c);
end.
begin
var a := ReadArrInteger(10);
var j := a.FindIndex(x -> x = 3);
Print(j > -1 ? (j + 1).ToString : 'No')
end.
Решение:
У нас есть 600Кб информации.
Посмотрим сколько это бит
600(килобайт)*1024(байт в килобайте)*8(бит в байте) = 4915200 бит.
У нас каждая точка(пиксел) занимает 16 бит
Значит у нас: 4915200/16 = 307200 пикселей.
Посчиатем пикселы для разных разрешений (размеров растра)
640*480=307200
1024*768 = 786432
Значит ответ: размер растра у нас 640*480. (совпадают количества пикселей)
1)Идем рвать липу
2)наливаем в чайник воду
3)ставим на плиту и ждем 5 минут
4)В кружку кладем липу
5)Снимаем чайник с плиты
6)Наливаем воду в кружку
7)Ждем пока завариться
8) Пьем чай