Var
A,i:integer;
N:real;
Begin
WriteLn('Введите число');
ReadLn(N);
For A:= 100 to 999 do
if (A div 100)+((A div 10) mod 10)+(A mod 10)<=N then
Write(A,' ')
End.
Ответ:
развитие технологий, аппаратное и программное обеспечение (может быть )
Если речь о Паскале, то после case может следовать переменная порядкового или строкового типа.
Выдели изображение и нажми ctrl+c, а затем ctrl+v
3 Мбайт=25165824 Бит
256 Бит=0,031 Кбайт
98678256378 Бит=12045685,59 Кбайт
2 Мбайт=16777216 Бит
4 Мбайт=33554432 Бит