Один раз мы с Мишей были в игрушечном магазине и увидели замечательную игрушку - телефон.
В большой деревянной коробке лежали два телефонных аппарата, две трубки, в которые говорить и слушать, и целая катушка проволоки.
Продавщица объяснила нам, что если один телефон поставить в одной квартире, а другой - у соседей и соединить оба аппарата проволокой, то можно переговариваться.
Мы захотели его купить!
Это не какая-нибудь простая игрушка, которую поломаешь и выбросишь.
Это полезная вещь!
Мы с Мишей решили собирать деньги, чтобы купить телефон.
Две недели подряд мы не ели мороженого, не ходили в кино - всё деньги копили.
Наконец насобирали сколько было нужно и купили телефон.
Примчались из магазина домой с коробкой.
Один телефон у меня поставили, другой - у Мишки и от моего телефона протянули проволоку через форточку вниз, прямо к Мишкиному телефону.
Я помчался к себе, взял трубку и слушаю, а трубка уже кричит Мишкиным
голосом!
Нашему счатстью небыло предела!
Чтобы увидеть графическую заставку к игре необходимо открыть .avi
Ответ: а
#include <iostream>
#include <set>
int main()
{
std::set<std::string> Set;
int n, k;
std::cin >> n >> k;
char * s = new char[k + 1];
std::cin.clear();
while (std::cin.get() != '\n'){};
for (auto i = 0; i < n / k; i++)
{
std::cin.get(s, k+1);
Set.insert(s);
}
std::cout << Set.size();
return 0;
}
Сами программы не проверял, если они правильные, то
2)
program zak; uses crt;
type danie=record
litri:string;
cislo:string;
end;
DanieVodi=file of danie;
var DV:DanieVodi;
D:danie;
i,n:integer;
begin clrscr;
assign(DV,'d:\azaz.txt');
rewrite(DV);
repeat
writeln('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou'); readln(D.cislo);
writeln('BBeDuTe KoJlu4ecTBo IIoTpa4eHou BoDbl');
readln(D.litri);
if D<>'stop' then write(DV,D);
until D='stop';
close(DV);
readln;
<span>end.
</span>
1)
uses crt;
type danie=record
litri:string;
cislo:string;
<span><em>max,min:real;</em></span>
end;
DannieVodi=file of danie;
var DV:DannieVodi;
D:danie;
i,n:integer;
cislo1:string;
begin clrscr;
assign(DV,'d:\azaz.txt');
reset(DV);
write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou:');
read(cislo1);
while not eof(dv) do
begin
read(DV,D);
if min='0' then min:=StrToFloat(D.cislo)<span>;
</span>if StrToFloat(D.cislo)<min then min:=StrToFloat(D.cislo);
<span>if StrToFloat(D.cislo)>max then max:=StrToFloat(D.cislo);
</span>
if cislo1=D.cislo then
writeln('6blJlo IIoTpa4eHo "',D.litri,'" JluTpoB BoDbi');
end;
writeln('min=',min);
<span>wtiteln('max=',max);
</span>
close(DV);
readln;
end.
Если это не учебная задача, то лучше сделать ее в Access. Там интерфейс красивый и дружелюбный легко получить.
Program a; // имя программы
var n:string; // четырехзначное число будем вводить с клавы
var n1, n2, n3, n4, err: integer; // n1 - n4 это цифры числа, например 1234
var sa: double; // среднее арифметическое
Begin // начало
Read( n ); // вводим с клавиатуры число N
Val( n[1], n1, err ); // первая цифра числа N
Val( n[2], n2, err ); // вторая цифра числа N
Val( n[3], n3, err ); // третья цифра числа N
Val( n[4], n4, err ); // четвертая цифра числа N
sa := ( n1 + n2 + n3 + n4 ) / 4; // находим среднее арифметическое
if ( sa / 2 = Trunc( sa / 2 ) ) and ( sa > 5 ) then Write( sa ); // если оно четное и больше пяти - выдаем значение на экран
End. // конец