var
x, y: integer;
n: integer;
sum: integer;
mindif: integer;
f: text;
begin
assign(f,'C:\27-A.txt');
reset(f);
readln(f, n);
sum := 0;
mindif := 20001;
while not eof(f) do begin
readln(f, x, y);
if x > y then
sum := sum + x
else
sum := sum + y;
if (abs(x - y) < mindif) and (abs(x-y) mod 3 <> 0) then mindif := abs(x-y);
end;
if sum mod 3 <> 0 then
writeln(sum)
else
writeln(sum - mindif);
end.
Объяснение:
a = 1; b = 4; c = 7
a = 1; b = 7; c = 4
a = 4; b = 7; c = 1
a = 4; b = 1; c = 7
Объяснение:
Вот код программы на C++:
#include <iostream>
using namespace std;
void main()
{
setlocale (LC_ALL, "RUS");
int a, b, c, M;
cout << "Введите число а: ";
cin >> a;
cout << "Введите число b: ";
cin >> b;
cout << "Введите число c: ";
cin >> c;
if (a > b)
{
M = a;
}
else
{
M = b;
}
if (c > b)
{
M = c;
}
else
{
M = b;
}
cout << "Наибольшее число: " << M << endl;
}
Можешь сам(а) на онлайн-компиляторе проверить выражения, если не уверен(а).
Здравствуй! Так не кто не делает
Объяснение:
Для ряда вычеслений нужны переменные и типы данных.
Чтобы пользоваться ими необходимо обьявить, а после тспользовать.
Var
a,b,c:real;
begin
a:＝3/2＋4;
b:＝a/3+5;
Похоже на это будет правильнее
Если ты вводишь x также обьяви его, а после будет 3*x/2+4
Строчками для наглядности, чтобв не запутатся. Если так писать будешь то вычеслений не будет
Смотри ответы от меня и после поймешь