Program _massiv;
var A:array[1..50] of real;
i,c:integer;
begin
writeln('Задайте количество членов линейного массива');
readln(c);
for i:=1 to c do begin
writeln('Введите',' ',i,' элемент массива');
readln(A[i]);
end;
for i:=1 to c do
writeln('Элемент массива ',i,' равен ',a[i]);
for i:=1 to c do
if A[i]=7.5 then writeln('Номер элемента массива, равный 7.5 ',i)
end.<span> </span>
#include <iostream>
long double fact(const int &);//прототип функции.
int main()
{
int arr[5];
for(int i = 0; i < 5; i++)
std::cin >> arr[i];
for(int i = 0; i < 5; i++)
std::cout << "fact(" << arr[i] << ") = " << fact(arr[i]) << std::endl;
return 0;
}
/*
* long double - тип возвр. значения. const int - константность переменной int.
* & - взятие ссылки(предохранение от ссоздания копии
*/
long double fact(const int &variable)
{
if(variable == 1) // факториал 1 = 1
return 1;
if(variable == 0)
return 0;
if(variable > 1) // если больше 1 , то
return variable * fact(variable - 1); // умножаем входное значение на факториал(вохдное - 1), тем самым вызывая рекурсию.
return 0;
}
1)
var s,k:integer;
begin
s:=0;
begin for k:= 6 to 12 do
s:=s+5;
end;
write(s);
end.
Ответ
35
2)
var Dat: array [1..7] of integer;
k, m, day: integer;
begin
Dat[1]:=7;
Dat[2]:=9;
Dat[3]:=10;
Dat[4]:=8;
Dat[5]:=6;
Dat[6]:=7;
Dat[7]:=6;
day:= 1;
m:=Dat[1];
begin for k:=2 to 7 do
if Dat[k]<m then
begin m:=Dat[k];
day:=k;
end;
end;
write(day);
end.
Ответ
5
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.