Программа на скрине, чётное число это такое число которое делится без остатка на два, в паскаль чтобы определить остаток от числа нужно использовать mod
1) пассажир Иванов живёт в Москве; 2) проводник живёт на полпути между Москвой и Санкт-Петербургом; 3) пассажир-однофамилец проводника живёт в Санкт-Петербурге; 4) у пассажира, который живёт ближе к месту жительства проводника, чем другие пассажиры, вдвое больше детей, чем у проводника; 5) у пассажира Петрова трое детей; 6) Сидоров (из поездной бригады) недавно выиграл у машиниста партию на бильярде
7) п1+п3 = проводник не Иванов. Кто-то из пассажиров живет в С-Петербурге8) п4+п5+п7 = У Петрова нечетное кол-во детей, значит он не тот кто живет рядом с проводником. Петров живет в С-Петербурге9) п3+п8 = У проводника фамилия Петров10) п6+п9 = машинист не Сидоров. Машинист - Иванов
Ответ: Иванов
#include <iostream>
using namespace std;
int main(){
float a,v,s;
cin>>a;
v=a*a*a;
s=6*a*a;
cout<<"v="<<v<<" s="<<s,"\n";
}
Тестовое решение:
3.5
v=42.875 s=73.5
--------------------------------
Process exited after 5.803 seconds with return value 0
Для продолжения нажмите любую клавишу . . .
Используя формулу
Sn-ого числа = аn+a1/2 и умножить на n
Где Sn-сума членов арифметической прогрессии
an-n-ое число арифметической прогрессии
a1-первый член арифметической прогрессии
n-номер числа
Если неизвестно n число то можна найти ее за другой формулой
Sn=2a1+d(n-1)/2
Где d-разница арифметической прогрессии
Var i,c:integer;an:array[1..10] of integer,a:array[1..10] of integer;
<span>begin
randomize;
for i:=1 to 10 do a[i]:=</span><span>random(100)-100</span>;<span>
for i:=1 to 10 do
if a[i]>0 then
begin
an[i]:=a[i];
</span>c:=c+1;
end;
writeln("Кол-во положительных элементов: ",c);
for i:=1 to 10 do
begin
if a[i]<=0 then
begin
an[c]:=a[i];
<span>c:=c+1;
end;
end;
writeln("Получившийся массив:");
writeln(" ");
for i:=1 to 10 do write(an[i]," ");
end.
</span>