<h2>Программа написана и протестирована на языке PascalABC.NET</h2>
- var
- A, B, C: real;
- e, f: real;
- begin
- Readln(A, B, C);
- Readln(e, f);
-
- if (A >= e) and (A <= f) then Writeln(A);
- if (B >= e) and (B <= f) then Writeln(B);
- if (C >= e) and (C <= f) then Writeln(C);
- end.
Для увеличения картинки нажмите на лупу (расположена на фотографии) либо откройте фотографию в новой вкладке.
Путь набор символов показывающие расположение файлов в файловой системе адрес каталога в операционных системах его и norik с разделительным знаком при записи пути является Windows
Ответ:
1.
a = 5
b = 3
print(str(a) + '+' + str(b) + '=?')
2.
a = 5
b = 3
print('Z(' + str(a) + ')' + '=' + 'F(' + str(b) + ')')
3.
a = 5
b = 3
print('a=' + str(a) + ';b=' + str(b) + ';')
Объяснение:
лови!)
СМОТРИ ВЛОЖЕНИЕ
...........................
var
x1,y1,x2,y2:integer;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
if (x1+y1+x2+y2) mod 2 = 0 then
writeln('ONI IMEUT ODINAKOVIJ ZVET');
else
writeln('ONI IMEUT RAZNIJ ZVET');
end.