<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadReal('a=');
Writeln('P=',4*a,', S=',a*a)
end.
<u>Пример</u>
a= 3.2
P=12.8, S=10.24
Var i,j: integer;
chislo: string;
begin
chislo:='12323';
for j:=1 to 14 do
begin
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='1' then begin delete(chislo,i,1);insert('33',chislo,i); inc(i); end;
inc(i);
end;
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='2' then begin delete(chislo,i,1);insert('1',chislo,i); end;
inc(i);
end;
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='3' then begin delete(chislo,i,1);insert('2',chislo,i); end;
inc(i);
end;
end;
Writeln(chislo);
readln;
end.
<span>Задача №1 (( остальные по аналогии сделай ))
const n=3;var a:array[1..n,1..n] of integer; {Ввод массива N на N} i, j, sum: integer; {Ввод переменных}begin sum := 0; begin for i:= 1 to n do for j:= 1 to n do read(a[i,j]) end; for i:= 1 to n do begin for j:= 1 to n do if a[i,j] > 0 then sum:=sum + a[i,j] end; write('сумма = ', sum);end.</span>
В тестах iq есть не только числа, но и буквы. Буква заменяется на ее порядковый номер в алфавите, и он используется как число. Числа, в свою очередь, связываются определенными закономерностями.Полученное в результате решения число может быть снова заменено буквой. Чтобы было удобнее использовать связь буквы и ее номера в алфавите, составим пары буква-число.Заготовленный русский алфавит с номерами букв поможет намного быстрее справиться с заданием. A-1; Б-2; В-3; Г-4; Д-5; Е-6; Ё-7; Ж-8; З-9; И-10; Й-11; К-12; Л-13; М-14; Н-15; О-16; П-17; Р-18; С-19; Т-20; У-21; Ф-22; Х-23; Ц-24; Ч-25; Ш-26; Щ-27; Ъ-28; Ы-29; Ь-30; Э-31; Ю-32; Я-33. Еще одна таблица — пары букв. Буквы в паре одинаково удалены от концов алфавита.А — Я — 1 З — Ч — 9 П — П — 17Б — Ю — 2 И — Ц — 10В — Э — 3 Й — Х — 11Г — Ь — 4 К — Ф — 12Д — Ы — 5 Л — У — 13Е — Ъ — 6 М - Т — 14Ё — Щ — 7 Н — С — 15Ж — Ш — 8 О — Р — 16 1) Найти букву и число:3 8 13 ?В Ж Л ?Показать решение2) Вставить пропущенные буквы:Б Ы ? Х М<span>Ю Д ? Й Т
</span>Показать решение3) Какие буквы пропущены?В Е З ?Я Ы Ч ?Показать решение4) Найти, какую букву надо вставить:<span>А Ж Д ? З О Л
</span>Показать решение5) Заменить знак вопроса буквой:<span>А ? З О Ч
</span>Показать решение6) Определить, какая буква пропущена:В Д Ж Л Т ?Показать решение7) Какую букву надо поставить вместо знака вопроса? И М Е Р Ф ?Показать решениеПроанализируйте задания на номер буквы в алфавите вместе с ребенком. Обсудите, как еще могут быть связаны буква и ее номер. Затем дайте ребенку задание связать буквы и числа самостоятельно.
