1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program pr; var x,y,z:real; function zxy(x,y:real):real; var f:real; begin f:=exp(y*ln(x)); zxy:=f; end; begin writeln('Введите х'); readln(x); writeln('Введите y'); readln(y); z:=zxy(x,y); writeln('z= ',z); end.
Задача написана на Pascal
Program Zadacha;
Var pak, mas: real;
Begin
Writeln('Введите массу яблок');
Readln(mas); pak:=mas/3;
Writeln('Необходимо ',pak:4:2,' пакетов');
<span>End.</span>
При помощи языка мы общаемся и помогает в этом нам словестные описания
Var a, b, sum: integer;
readln(a);
readlb(b);
if ((a div 10 = 6) or (a mod 10 = 6)) and ((b div 10 = 6) or (b mod 10 = 6)) and ((a < 100) and (a > 9) and (b > 9) and (b < 100)) then
sum := a + b;
else writeln("в числах нет 6 или они не двузначные");
writeln(sum);
кажется должно быть понятно(это на паскале, но я его не помню и может быть ошибка где-нибудь.
а так просто объяснение:
вводим с клавиатуры 2 числа, заводим переменную для суммы
проверяем есть ли в числах цифра 6 и не двузначное ли оно
если все ок, то считаем и выводим сумму
Резьбовое соединение.
Скрутка.
Соединение клеммами.
Соединение при помощи клеммной колодки.
Опрессовывание.
Пайка.
Использование заклепочника.
Бандажирование проводников.
Сварка жил.
Прокалывание проводников.