Из следующих предложений выбрать те, которые являются высказываниями: Как пройти в библиотеку? Меню в программе – это список возможных вариантов. Сканер – это устройство, которое может напечатать на бумаге то, что изображено на экране компьютера. Мышка – это устройство ввода информации. Число 2 является делителем числа 7. 2) Распределите высказывания по типам сложное) Сегодня, завтра или через месяц он напишет письмо Если успешно закончишь первую четверть, то тебе подарят компьютер В школе уроки начнутся в 9 часов утра Кончилось лето, и наступили прохладные дни У меня есть старший брат Каждое утро и каждый вечер он выходит на прогулку После дождя трава мокрая Круг – это не квадрат Марс находится в пределах Солнечной системы 3) Укажите связующие слова или союзы и наименование связок Он позвонит или пришлёт сообщение по электронной почте Неверно, что январь – летний месяц Каждый человек на земле имеет право быть счастливым Мне должны подарить либо лыжи, либо самокат На следующей неделе она зайдёт ко мне домой и на работу к бабушке Если у тебя заболело горло, то обязательно надо показаться врачу Все ученики нашего класса пойдут в кино Некоторые дети не любят конфеты Существуют птицы, которые не могут летать 4) Из следующих высказываний составьте и запишите несколько сложных высказываний: Поедем на дачу Хорошая погода По прогнозам синоптиков предполагаются осадки в виде дождя и снега Сильный ветер Отсутствие ветра Плохая погода Мы поедем на пляж Антон приглашает нс в театр Антон приглашает нас в цирк После школы я буду учиться в институте После школы я буду работать в интернет-центре
Ответы
1. "Традиционный" вариант
//PascalABC.Net 3.0, сборка 1052
function NOD(a, b: longint): longint;
begin
while a <> b do if a > b then a := a - b else b := b - a;
NOD := a
end;
var
f: Text;
tNOD: longint;
begin
Assign(f, 'input.txt'); Reset(f);
if not Eof(f) then Readln(f, tNOD);
var n: longint := 1;
while (not Eof(f)) and (n > 0) and (tNOD > 1) do
begin
Readln(f, n);
if n <> 0 then tNOD := NOD(tNOD, n)
end;
Close(f);
Assign(f, 'output.txt'); Rewrite(f);
Writeln(f,tNOD);
Close(f)
end.
2. "Современный" вариант
//PascalABC.Net 3.0, сборка 1052
function NOD(a, b: integer): integer;
begin
while a <> b do if a > b then a -= b else b -= a;
Result := a
end;
var
tNOD: integer := 0;
n: integer;
begin
foreach var sn in Readlines('input.txt') do
begin
n := StrToInt(sn);
if tNOD = 0 then tNOD := n
else
if n = 0 then break else tNOD := NOD(tNOD, n);
end;
WriteAllText('output.txt', IntToSTR(tNOD));
end.
Пример файла input.txt находится во вложении, контрольный результат 4096
//PascalABC.Net 3.0, сборка 1052
function NOD(a, b: longint): longint;
begin
while a <> b do if a > b then a := a - b else b := b - a;
NOD := a
end;
var
f: Text;
tNOD: longint;
begin
Assign(f, 'input.txt'); Reset(f);
if not Eof(f) then Readln(f, tNOD);
var n: longint := 1;
while (not Eof(f)) and (n > 0) and (tNOD > 1) do
begin
Readln(f, n);
if n <> 0 then tNOD := NOD(tNOD, n)
end;
Close(f);
Assign(f, 'output.txt'); Rewrite(f);
Writeln(f,tNOD);
Close(f)
end.
2. "Современный" вариант
//PascalABC.Net 3.0, сборка 1052
function NOD(a, b: integer): integer;
begin
while a <> b do if a > b then a -= b else b -= a;
Result := a
end;
var
tNOD: integer := 0;
n: integer;
begin
foreach var sn in Readlines('input.txt') do
begin
n := StrToInt(sn);
if tNOD = 0 then tNOD := n
else
if n = 0 then break else tNOD := NOD(tNOD, n);
end;
WriteAllText('output.txt', IntToSTR(tNOD));
end.
Пример файла input.txt находится во вложении, контрольный результат 4096
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Али-Баба - пещера с сокровищами
Мышка-норушка - Теремок
Иван-царевич - избушка на курьей ножке
Лиса - Колобок, Колобок, спой мне песенку! - Колобок
Королевич Елисей - Ветер, ветер! Ты могуч, ты гоняешь стаи туч Ты волнуешь сине море,Всюду веешь на просторе. Не боишься никого, Кроме бога одного. Аль откажешь мне в ответе? Не видал ли где на свете Ты царевны молодой? - Ветер
Королевич Елисей Месяц, месяц, мой дружок,Позолоченный рожок! Ты встаешь во тьме глубокой, Круглолицый, светлоокий, И, обычай твой любя, Звезды смотрят на тебя. Аль откажешь мне в ответе? Не видал ли где на свете Ты царевны молодой? - Месяц