Var a,d,b,s:real;
begin
write('a = '); readln(a);
write('d = '); readln(d);
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('S = ',s);
end.
Пример:
a = 4
d = 5
S = 12
Вроде бы так... подправь если что)
uses crt;
const N=10;
var i,p:integer; a:array[1..N] of integer; {кол эл массива }
begin
p:=0;
writeln('введите исходный массив');
for i:=1 to N do {цикл по кол э}
begin
write('a[',i,']='); readln(a[i]); {ввод эл массива}
if (a[i] mod 2)=0 then p:=p+1;
end;
write('p='); writeln(p);
readln
end.
На C++
#include <iostream>using namespace std;int main(){
/*
k - это колличество чисел в последовательности
now - считываемое число
min - искомое значение
*/
int k, now, min = 30001;
cin >> k;
for( k; k > 0; k--){
cin >> now;
if( (now % 5 == 0) && (now < min) ){
min = now;
}
} cout << min; return 0;
}