Надеюсь я правильно понял суть заданий.
Номер 1.
Program n_1;
var a: integer; b:double;
begin
readln(a);
b:=(a mod 10 + a div 10)/2;
writeln(b:0:1);
end.
Номер 2.
Program n_2;
var a: integer;
begin
readln(a);
a:=a div 10 - a mod 10;
writeln(a);
end.
Номер 3.
Program n_3;
var a, b: integer;
begin
readln(a);
b:=a div 1000;
a:=a - a div 1000 * 1000;
writeln(b , ' кг ', a, ' г');
end.
Номер 4.
Program n_4;
var a: int64;
begin
readln(a);
writeln(a div 10000, ' км^2');
end.
int x=1,y=2,c=3;
int result=x+y/2*c;
System.out.print(result);
- не использовать знаки ? / и некоторые др.
- длина имени не более 20 символов
- имя файла отражает содержимое
Реализация такова:
F = x(сначала 5.2) + ln^2(b[i] * x + 3.1).
В этом выражении сначала вычитается квадрат натурального логарифма от всех элементов вектора, затем прибавляем x(5.2 изначально) и выводим. И так на каждой итерации.
#include <iostream>
#include <vector>
#include <cmath>
int main()
{
std::vector<float> B(8);
float
tmp,
sum = 0;
for(int i = 0; i < 8; i++)
{
std::cin >> tmp;
B.push_back(tmp);
}
for(auto X = 5.2f; X < 8.3f; X += 0.75f)
{
for(const auto& i : B)
sum += pow(log(i*X + 3.1f), 2);
std::cout << "F при x = " << X << " равно = " << X+sum << std::endl;
}
return 0;
}
В VBasic создаете командную кнопку и копируете из файла программу кроме первой и последней строк
