2 - ctrl, 3 шт. или тг.,4- А . В 5 - 6,04;27,04;17,04,6 - Правило Больше 3, 7 С8, 8- 1
1 - название таблицы, 2 - легенда,3 - рабочая область, 4 - таблица осей
Немного не понятно с условиями последней задачи. Написал как понял. См. приложения
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
var c, w: integer;
procedure check;
begin
var (a, b) := (Random(0, 20), Random(0, 20));
Print($'{a}*{b}=');
if a * b = ReadInteger then begin inc(c); Println('Правильно') end
else begin inc(w); Println('Неправильно') end;
end;
procedure res;
begin
Println($'Задано вопросов {c+w}');
Println($'Правильных {c}({(c*100)/(c+w):f1}%)');
Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');
end;
begin
var start := true;
while start do
begin
Println('Проверим?(0/1)');
if ReadInteger = 0 then
begin start := false; res; end
else check;
end;
end.
Пример в приложении.
1) посчитаем количество квартир в подъезде 1953-(1737-1)=217
количество подъездов 1953/217=9
2) ряд задается формулой a [i+1]=a [i]+3^I
считаем ряд дальше 26+81=107
107+343=450
450+1029=1479
3)
Б О Р И С
50 67 95 32 48
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s1:=ReadlnString;
var s2:=ReadlnString;
var s3:=s1.Interleave(s2).JoinIntoString;
Writeln(s3)
end.
<u>Пример</u>
крокодил
черепаха
кчреоркеопдаихла