1.
а)огурец.
б) москвич.
в) тракторист.
г)школьники.
2.
а)герои из сказки Буратино.
б)сказки.
в)большие города.
г)большие реки.
д)города России.
3.
а) Джеймс Кук.
б)корень.
в)P=2(a+b)
г)Илья Муромец и Соловей разбойник.
4.
1)птица летит по воздуху. Птица сидит в гнезде.
2)мяч катится в ворота. Мяч лежит на поле.
3)велосипед едет по дороге. Велосипед стоит около магазина.
Program Summa;
Uses Crt;
var n,s:integer;
begin
clrscr;
write('Вводите числа конец ввода 0: ');
s:=0;
repeat
readln(n);
s:=s+n;
until (n=0);
writeln;
writeln('Сумма чисел: ',s);
readkey;
end.
begin
var s := ReadlnString('Введите строку:');
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'X', 'Х': s[i] := '1'
end;
Println('Двоичный код:', s);
end.
===== PascalABC.NET =====