===== PascalABC.NET =====
begin
var x := ReadReal;
var (K, L) := (2.7, 3.0);
var y, a: real;
if x < 16 then
y := L*x/(x+1)
else
y := K + 2*x;
a:=1/(1-3*Sin(y)/(2-y/Ln(y*y)));
Print('y =', y, ' a =', a)
end.
То же самое, что и в предыдущих блоках было, выполнить 1 раз в отношении переменной D.
Алгоритм:
1) Максимальное =A
2) Если B>максимального, то максимальное=B
3) Если C>максимального, то максимальное=C
4) Если D>максимального, то максимальное=D
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=ReadInteger('введите натуральное число: ').ToString;
write('сумма 1 и последней цифры: ',a[1].ToDigit()+a[a.Length].ToDigit());
end.
1.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
char arr[100];
int num = 0;
std::cin >> arr;
for (int i = 0; arr[i] != '\0'; i++)
{
num += 1;
}
cout << "Из 100 элементов массива занято: " << num << ", свободно: " << 100 - num << endl;
return 0;
}