Состав и структуру мотопехотного батальона армии ФРГ (образца 1970 года) по следующему описанию.
Линейный
Жили-были дед да баба.
Была у них курочка ряба.
Снесла курочка яичко, не простое, золотое.
Дед бил, бил – не разбил.
Баба била, била – не разбила.
Мышка бежала, хвостиком махнула.
Яичко упало и разбилось.
Дед и баба плачут.
Курочка кудахчет.
с ветвлением
«Гуси-лебеди»
Начало
Девочка просит печку помочь.
Если съешь моего пирожка,
то помогу,
иначе не помогу
Конец
Любишь кататься, люби и саночки возить
Начало
если любишь кататься,
то люби и саночки возить
Конец
Циклический алгоритм
«Собирай по ягодке, наберешь кузовок»
Сказка о рыбаке и рыбке:
- раз старик закинул невод, пришел невод с одною тиной
второй раз старик закинул невод... .
Переводим число 598 в 2-ричную систему счисления (делим на 2 с остатком):
598=2*299+0
299=2*149+1
149=2*74+1
74=2*37+0
37=2*18+1
18=2*9+0
9=2*4+1
4=2*2+0
2=2*1+0
1=2*0+1
598₁₀=1001010110₂
Число имеет 10 знаков, а надо 16, поэтому слева дополняем 6 нулями
0000001001010110
Поскольку число отрицательное, то в старшем (левом крайнем) разряде записываем 1. Получаем окончательное 16-разрядное компьютерное представление
1000001001010110
Ответ: 1000001001010110
Program Stipendiya;
type
Student = record
Ocenka: array [1..5] of Byte;
end;
var
i, j: Byte;
Summa: Integer;
Troechik: Boolean;
Studenti: array [1..25] of Student;
begin
for i:=1 to 25 do
begin
// Zapolnyaem ocenki studentov:
WriteLn('Vvedite ocenki '+IntToStr(i)+' studenta: ');
for j:=1 to 5 do
begin
Write('Ocenka za '+IntToStr(i)+' ekzamen: ');
ReadLn(Studenti[i].Ocenka[j]);
end;
end;
// Chitaem summu
S:=0;
WriteLn('');
for i:=1 to 25 do
begin
//
Troechik:=False;
//
for j:=1 to 5 do
if Studenti[i].Ocenka[j] < 4 then Troechik:=True;
//
if not Troechik then
begin
WriteLn('Vidat stipendiu '+IntToStr(i)+' studentu');
Summa:=Summa + 900;
end;
end;
// Vivod summi vsex stipendii
WriteLn('Summa vsex stipendii = '+IntToStr(Summa));
end.
слишком неясное задание, требуется знать что дано, координаты вершин, площадь или просто длины сторон
