На широком дворе,
На гладком поле
Четыре попа
Под одной шляпой.
Ножек четыре,
Шляпок одна,
Нужен, коль станет
Обедать семья.
Ног две пары, но не ходят,
Ни в саду, ни в огороде,
На спине скатёрка
И посуды горка!
У него спина большая,
И на ней он разрешает
И писать, и рисовать,
И лепить, и вырезать.
Кто стоит в столовой нашей,
Подпирая миску с кашей?
Вышит кружевом подол.
Кто залез под скатерть?
<span>16*118272 бит=1892352 бит = 236544 байт = 231 Кб = 0,2256 Мб</span>
Типа такого?
Текстовый Алгоритм:
1) Взять карандаш.
2) Выбрать плотную бумагу.
3) Положить бумагу на стол.
4) Нарисовать зарисовкку.
5) Закрасить зарисовку цветными карандашами.
Графический алгоритм:
Начало
1. Взять.
2. Выбрать
3. Положить
4. Нарисовать
5. Закрасить.
1). Здесь возможны 2 варианта:
if A>10 then a:=a+2 else
if A>10 then else a:=a+2
2)
<span>__ a:= 23 div 10 +10 - </span>3) 12<span>
__ b:= a mod 5 +1 - </span>4) 3<span>
__ c:= sqr(b) - </span>1) 9<span>
__ d:= c *5/3 - </span>2) 15
Даны два набора чисел (5,6,1,2,3) и (5,8,6,0,3) написать программу , которая подсчитывает количесво чисел, которые совпадают в о
Роман309 [59]
Uses crt;
const mn1: array[1..5] of byte =(5,6,1,2,3); {Объявляем наши наборы}
const mn2: array[1..5] of byte =(5,8,6,0,3); {Объявляем наши наборы}
var i,c,n:integer;
begin
clrscr;
write('Набор1 до обработки:');
for i:=1 to 5 do write(mn1[i]:3); {Выводим на экран набор 1}
writeln;
writeln;
write(' Набор2 до обработки: :');
for i:=1 to 5 do write(mn2[i]:3); {Выводим на экран набор 2}
writeln;
writeln;
n:=1; c:=0;
while (n<=5) do {В цикле сравниваем n-й элемент набора1 с}
Begin {каждым элемент набора2 }
for i:=1 to 5 do begin
if (mn1[n]=mn2[i]) then
begin
c:=c+1; {Если нашли совпадение до увеличиваем кол-во совпадающих пар чисел}
mn1[n]:=0; {И записываем на их место нули}
mn2[i]:=0;
break; {переходим к след элементу набора1}
end;
end;
Inc(n);
End;
{Выводим результаты обработки}
write('Количество совпадающих пар чисел:',c);
writeln;
write(' Набор1 после обработки :');
for i:=1 to 5 do write(mn1[i]:3);
writeln;
writeln;
write(' Набор2 после обработки :');
for i:=1 to 5 do write(mn2[i]:3);
readkey; {пауза до нажатия на любую клавишу}
end.