Список учеников класса, оценки учеников за контрольную работу по информатике, периметры нескольких прямоугольников (последнее не точно)
Ответ 2. Вот смотри. У тебя есть два множества, которые у меня на рисунке. Мысленно ну или на бумаге подели этот рисунок на части, в которых может быть икс и при этом, где буду меняться условия. т.е. вот тебе три части, для которых требуются разные условия. в самом низу там наискосок неаккуратно (извини) написала все возможные варианты. в первом тебе все равно, где множество а, у тебя уже есть единица в одном из слагаемых, во втором тоже неважно, там следование в любом случае будет равно единице. а вот в третьем нужно подобрать такое расположение множества а, чтобы не было операции следования в ноль из единицы, нужно из нуля в ноль. т.е. чтобы в момент нахождения в третьем отрезке, мы не находились в множестве а. из представленных вариантов расположения подходит только второй
Для ввода информации:
- Readln<em>(есть альтернатива - read - их отличие в том, что допустим при присвоении значения переменным a и b значений, введенных с клавиатуры:</em>
<em>read(a);</em>
<em>read(b);</em>
<em>Вводятся числа 1 и 2 на первой строке, число 3 на второй. Переменной a получит значение 1, а переменная b - значение 2.</em>
<em>readln(a);</em>
<em>readln(b);</em>
<em>Вводятся числа 1 и 2 на первой строке, число 3 на второй. Переменной a получит значение 1, а переменная b - значение 3.)</em>
Для вывода информации:
- Write
- Writeln<em>(отличие от write в том, что после вывода writeln переносит последующий вывод на следующую строку в то время, как вывод после write продолжится на той же строке (если не сделаны некоторые дополнительные манипуляции))</em>
<em>________</em>
p.s. если всего 1 вариант ответа для вывода, то тыкай на любой. Они оба правильные.
Uses
crt;
var
a, b, c: integer;
begin
clrscr;
writeln('Что вы хотите сделать?');
writeln('1-сложить 2-отнять 3-разделить 4-умножить');
readln(c);
if c = 1 then begin
read(a, b);
writeln(a + b)
end
else
if c = 2 then begin
read(a, b);
writeln(a - b)
end
else
if c = 3 then begin
read(a, b);
writeln(a / b)
end
else
if c = 4 then begin
read(a, b);
writeln(a * b);
end
else
write('Так, стоп, че за фигня? Где то тут меня надурили...');
readkey
end.
<em><u>Но короче и понятнее это написать так:</u></em>
uses
crt;
var
a, b, c: integer;
begin
ClrScr;
Writeln('Что вы хотите сделать?');
Write('1-сложить 2-отнять 3-разделить 4-умножить'); Readln(c);
if (c >= 1) and (c <= 4) then begin
Write('Введите через пробел два натуральных числа: '); Read(a, b);
case c of
1: Writeln(a + b);
2: Writeln(a - b);
3: Writeln(a / b);
4: Writeln(a * b)
end;
end
else Write('Так, стоп, че за фигня? Где то тут меня надурили...');
ReadKey
end.
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.