1)
Пока б больше а, {
проверить что при делении на два остаток равен 1, {
б присвоить б минус 1,
вывести б }}
2)
пока б миньше а {
общее присвоить б * счетчик
б присвоить б + 1 }
3)
пока счетчик (введенное число) не равно 0 {
счетчик + 1
выполнять (а = 0, а < счетчик, а присвоить а + 1) {
вывести а }}
Удачи. Надеюсь помог.
Если это КУМИР, то не хватает числа повторений.
А что такое "шея" (?) цикла - понятия не имею.
Uses Crt;
var
i:integer;
a:array[1..10] of integer;
count: integer;
Begin
ClrScr;
for i:=1 to 10 do begin
a[i]:=i*3;
if i mod 2 = 0 then a[i]:= a[i]*(-1);
write(a[i],' ');
end;
<span>End.</span>
<span>Флэш-карта имеет объем 1Гбайт. Альманах содержит 336 страниц, в которой есть страницы с текстом по 2 КБ и 80 страниц с иллюстрациями, объемом 5 Мбайт каждая. Сколько альманахов полностью поместятся на флэш-карту в несжатом виде?
ответ:
336*2=672 КБ или 0,65625 Мб.
80*5=400 Мб
400+</span>0,65625 = 400,65625 Мб. - 1 Альманах
1 ГБ - 1024 МБ
следовательно 1024/400,65625 = 2,.......
т.о. поместиться 2 целых Альмонаха
Маша-рояль,английский; Оля-виолончель,немецкий; Лена-скрипка,французский; Валя-арфа,итальянский.