Задание 1. Программа if18
Var
A,B,C:Real;
Begin
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If (C = B) Then
WriteLn('Номер числа, отличного от остальных: ',1)
Else
If (A = C) Then
WriteLn('Номер числа, отличного от остальных: ',2)
Else
WriteLn('Номер числа, отличного от остальных: ',3);
End.
Задание 2. Программа Case1
Var
x:Integer;
Begin
ReadLn(x);
Case x Of
1:WriteLn('Понедельник');
2:WriteLn('Вторник');
3:WriteLn('Среда');
4:WriteLn('Четверг');
5:WriteLn('Пятница');
6:WriteLn('Суббота');
7:WriteLn('Воскресенье');
End;
End.
Задание 3. Программа For7
var
A,B:integer;
temp:integer;
i:integer;
begin
temp:=0;
repeat
writeln('Введите A и B:');
readln(A,B);
until (A<B);
for i:=A to B do
begin
temp:=temp+i;
end;
writeln('Сумма :',temp);
end.
P.S.-если понравился ответ сделай его лучшим Объяснение:
Вы хоть раз представляли себе что, случается с бездомными животными? А что эти за люди которые их выбрасывают " на улицу? Да, вы правы-это даже не люди-это монстры! А Некоторые дюди отдают животных людям, которые за небольшую плату обещают устроить котят и щенков в "хорошие руки". На самом деле, большинство таких "устроителей животных выбрасывают их, либо отдают на опыты, на шапки, мясо и пр. Конечно, это жестоко, и даже очень. Эти два примера показывают на сколько жестоки ,мы ,люди!!!
Но, животные при к этим условиям легко как и человек. Да, они становятся слабыми, у них даже менятся характер и собака, (кошка) включает свои древние инстинкты и ведёт себя уже не как домашняя кошечка ,а как дикий зверь в Африке.Но,у этих животных есть Это специальные приюты для них, где за ними ухаживают и т.д..Люди, давайте заботиться о наших братьях меньших, давайте их любить и лелеять, ведь они такие же как мы ,они все понимаю и имеют чувства! (159 слов)
Поделитесь своими знаниями, ответьте на вопрос:
Этот приказ - один из немногих, номер которого помнил каждый фронтовик. Почему? Дайте свою оценку приказу "Ни шагу назад!". Почему она не может быть однозначной?