Ответ:Сначала берём круг, ставим его. Потом берём инструмент Выдавить и вытягиваем круг. Вот и получается цилиндр. Осмотреть можно с помощью инструмента Орбита
Объяснение:
Var
n:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin
Write('Сумма цифр числа ',n);
if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна');
End
else write('Число ',n,' не четырёхзначное. Перезапустите программу');
End.
Данные в таблице практически везде неверные, если свериться с астрономическими справочниками. Ну да не суть важно.
Во вложении - файл Microsoft Word-2003 с таблицей.
1 Кбайт(один килобайт) = 1024 байта
1 Мбайт (один мегабайт) = 1024 Кбайта
1 Гбайт (один гигабайт) = 1024 Мбайта