А) 10 ячеек (5строк*2столбца)
в) 130 ячеек (ячейки в одном столбце, значит 153-23=130)
В) 9 ячеек (3 столюца* 3 строки)
Очень просто. Если так не понимаешь то открой Excel и понаходи эти диапазоны и ячейки.
Правильный ответ: B18
<span>#include <iostream>
using namespace std;
int main()
{
int n, a, b, c;
cout << "n = ", cin >> n, cout << <span>"\n"</span>;
cout << "a, b, c: ", cin >> a >> b >> c, cout << <span>"\n"</span>;
if (n / 100 == a) cout << <span>"Первая цифра совпадает\n"</span>;
else cout << <span>"Первая цифра не совпадает\n"</span>;
if (n / 10 % 10 == b) cout << <span>"Вторая цифра совпадает\n"</span>;
else cout << <span>"Вторая цифра не совпадает\n"</span>;
if (n % 10 == c) cout << <span>"Третья цифра совпадает\n"</span>;
else cout << <span>"Третья цифра не совпадает\n"</span>;
return 0;
<span>}
Пример:
</span><span>n = 385
a, b, c: 5 8 1
Первая цифра не совпадает
Вторая цифра совпадает
Третья цифра не совпадает</span></span>
Program spiski;
type
ListElement = ^TListElement;
TListElement = record
Data: integer;
Next, Previous: ListElement;
end;
var
first, current, last: ListElement;
i: integer;
procedure Delete(var element: ListElement);
var
x: ListElement;
begin
while element <> nil do
begin
if (element^.Data = 0) and (element^.Next <> nil) then begin
x := element^.Next; {следующий элемент который надо удалить}
{сшиваем дырку которая образуется после удаления х}
element^.Next := x^.Next;
if (x^.Next <> nil) then
x^.Next^.Previous := element;
Dispose(x);
end;
element := element^.Next;
end;
end;
procedure Print(first: ListElement);
begin
if first = nil then
begin
writeln('Список пуст.');
exit;
end;
while first <> nil do
begin
Write(first^.Data, ' ');
first := first^.Next
end;
writeln;
end;
begin
for i := 1 to 11 do
begin
if first = nil then
begin
new(first);
first^.Next := nil;
first^.Previous := nil;
last := first;
end
else
begin
new(last^.Next);
last^.Next^.Previous := last;
last := last^.Next;
last^.Next := nil;
end;
last^.Data := random(8 + 5) - 5;
end;
current := first;
Print(first);
Delete(current);
Print(first);
end.
<em>// PascalABC.NET 3.2, сборка 1377 от 19.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Строка:'); // общая часть
// #1
var c1,c2:char;
Write('Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: ');
Readln(c1,c2);
s:=s.Replace(c1,c2); s.Println;
// #2
s:=s.Where(c->not (c in ['0'..'9'])).JoinIntoString; s.Println;
// #3
var k:=ReadInteger('k=');
s:=s.Batch(k).SelectMany(c->c+NewLine).JoinIntoString(''); s.Println
end.
<u>Пример</u>
Строка: Площадь Чёрного моря 422000 кв.км, Наибольшая глубина 2210 м, средняя — 1240 м.
Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: гЪ
Площадь ЧёрноЪо моря 422000 кв.км, Наибольшая Ълубина 2210 м, средняя — 1240 м.
Площадь ЧёрноЪо моря кв.км, Наибольшая Ълубина м, средняя — м.
k= 35
Площадь ЧёрноЪо моря кв.км, Наибол
ьшая Ълубина м, средняя — м.