Замени в слове гласную и запиши новые слова сон
yanaela2006 ·
04.07.2019 19:20
Ответов: 2
Показать ответы
2 Обсудить
Ответы
1)
var
a,b: array [1..100] of integer;
i,j,k,a,b,f: integer;
begin
randomize;
readln(a);
readln(b);
k: =0;
for i: =1 to 20 do
begin
a[i]: =random(135)-45;
f: =0;
for j: =a to b do
if (a[i]=j) and (a[i] mod 7 =0) then f: =1;
if f=0 then
begin
k: =k+1;
b[k]: =a[i];
end;
end;
for i: =1 to k do
writeln(b[i]);
end.
2)
var
a,b: array [1..100] of integer;
i,j,k: integer;
begin
randomize;
readln(k);
j: =0;
for i: =1 to 20 do
begin
a[i]: =random(135)-45;
writeln(a[i]);
for i: =1 to 19 do
begin
if a[i]*a[i+1]> 0 then
begin
j: =j+1;
b[j]: =a[i];
j: =j+1;
b[j]: =k;
end
else
begin
j: =j+1;
b[j]: =a[i];
end;
end;
j: =j+1;
b[j]: =a[20];
for i: =1 to j do
writeln(b[j]);
3)
var
a,b: array [1..20] of integer;
i,j,k1,k2: integer;
begin
randomize;
readln(k1);
readln(k2);
if k1< k2 then
begin
for i: =1 to 20 do
begin
a[i]: =random(135)-45;
writeln(a[i]);
end;
for i: =1 to k1-1 do
b[i]: =a[i];
for i: =k2+1 to 20 do
b[i]: =a[i];
j: =k2;
for i: =k1 to k2 do
begin
b[j]: =a[i];
j: =j-1;
end;
for i: =1 to 20 do
writeln(b[i]);
end;
end.
64*48*12*8=294,912- обьем в байтах 1 стр
если миша запретил маше закрашивать клеточку, двумя или более сторонами примыкающую к уже закрашенным клеточкам, значит маша может закрашивать клеточки в ряд. прямоугольник 4*100 можно представить как 4 ряда по сто клеточек, 2 ряда закрашены — ответ 200
2 способ
маша может закрасит клеточки в шахматном порядке
400 : 2 = 200
Дом-дым мел-мол тик-так пил-пол сыр-сэр сон-сын суд-сад дул-дол
Другие вопросы по Информатике
1.с клавиатуры вводят слово и символ. составьте программу ,которая определяет позицию данного символа….
Информатика
01.03.2019 13:40
Решить на языке программирования в turbo pascal: 1.дан массив целых чисел, состоящий из 10 элементов. заполнить его с клавиатуры. найти: -удвоенную сумму положительных элементов…
Информатика
02.03.2019 01:50
Запиши слово, означающее электронно-вычислительную машину. каждую букву смести по алфавиту на указанное число букв (знак»-» означает смещение назад). получится слово. (-8; -5; 1; 8…
Информатика
02.03.2019 20:30
Написать по возможности одну программу для паскаль…
Информатика
02.03.2019 20:40
Петя и коля играют в следующую игру петя задумывает правило преобразования текстовой информации. коля может предлагать любые тексты и узнавать результаты преобразования какое прави…
Информатика
03.03.2019 01:00
Написать программу для паскаля : найдите наименьший элемент квадратной таблицы и замените его нулем…
Информатика
03.03.2019 01:10
Составить блок схему по программе pascal program zadacha 3_1. var max, x,e: real; begin writeln(‘введите натуральное число x’); readln(x); writeln(‘введите число y’); readln(y);…
Информатика
04.03.2019 01:40
Соедини каждый рисунок с парой множеств. написано так 1)множество слов 2)множество названий рек.1)множество слов на букву а. 2)множество слов на букву б 1)множество слов на букву а…
Информатика
04.03.2019 10:40
1. сколько бит требуется для кодировки: базовых терминов информатики, если словарь включает 256 терминов?…
Информатика
04.03.2019 12:40
Текстовая информация — 50 страниц. 1 страница — 20 строк 1 строка — 10 символов 1 символ — 1 байт 10 картинок — 100х200 пикселей 1 пиксель — 3 байта найти информационный объём. н…
Информационное сообщение объёмом 2.5 кбайт передаётся со скоростью 2560 бит/мин. за сколько минут будет передано данное сообщение?…
Информатика
08.03.2019 01:00
Злая мачеха отправила падчерицу к роднику за водой.» вот тебе 2 ведра, в одно из них входит 9 литров воды, а в другое — 5 литров. но ты должна принести домой ровно 3 литра воды»,-…
Информатика
08.03.2019 09:20
