Задача1. (на паскале давно не программировал, поэтому возможны огрехи, саого паскаля под рукой нет.)
Program zadanie1;
var
a,b,c: real;
begin
wtiteln('Vvedite A');
readln(a);
writeln('Vvrdite B');
readln(b);
writeln('Vvedite C');
readln(c);
if ((a>b)and(b>c))or((a<b)and(b<c)) then
begin
a:=a*2;
b:=b*2;
c:=c*2;
end;
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1);
end;
writeln('a=');
writeln('b=');
writeln('c=');
end.
Решил исходя из того, что в случае если условие не выполняется значение чисел меняется на обратное по знаку.
Задача 2.
program Zadanie2;
var
A,B,C:integer;
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.
<span>
</span>
1.
числовых и текстовых данных
2.
D4
3.
несколько ячеек в столбце
4.
Текст
Число
Формулу
5.
В ячейке А1 формула =A$2-B2
<span>В ячейке C4
формула = =C$2-D5</span>
<span>В ячейке D2
формула = D$2-E3</span>
6.
абсолютная ссылка
7.
<span>Диапазон А1:С3 содержит 9 ячеек
</span>
<span>1.Монитор
2.Клавиатура
3.Дисковод
</span>
Ответ:
В книге Эрика Мэтиза .
https://codernet.ru/books/python/izuchaem_python_programmirovanie_igr_vizualizaciya_dannyx_veb-prilozheniya/
страница 225
Ответ:
E:\Класс7\Физика\Задача5.doc
