Program p1;
var a,b,c,d : integer;
begin
writeln('vvedite a,b,c,d');
readln(a,b,c,d);
if (a*b)>(c*d) then writeln(a*b) else (c*d);
end.
Каждая из девочек говорит правду, но только об одном предположении из двух.
Оля: Химия 16.04
Вика: Физика 15.04
Таня: НЕ химия 09.04
От сюда выходит что Оля не может быть права на счет химии, так как Вика сказала что это была физика, а Таня сказала, что это НЕ химия. Получается, что Вика и Таня говорят правду на счет предмета, но ошиблись в дате. Выходит, что это была контрольная по физике и 16.04
Program qq;
uses crt;
var x1, y1, x2, y2, n1, n2: integer; x, y, L, M, k, b: real; // чтоб было приятно, возьмём координаты начальных точек - целыми числами.
begin
writeln ('Введите координаты первой точки через пробел');
readln(x1, y1);
writeln('Введите координаты второй токи через пробел');
readln(x2, y2);
writeln ('введите через пробел числа N1 и N2');
readln(n1, n2);
l:=n1/n2; //далее производится расчет по формулам, данным в задании
x:=(x1+L*x2)/(1+L);
y:=(y1+L*y2)/(1+L);
writeln ('Координаты искомой точки (',x,';',y,')');
end.<span>
</span>
#include<iostream>
using namespace std;
int main() {
int a;
cin >> a;
cout << "Периметр: "<< (a*4) << "\nПлощадь: " << a*a;
}
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(161)+40;
write(a[i]:4);
end;
writeln;
end.
Пример:
<span> 83 121 107 43 171 199 116 87 87 144</span>