Var sum,k,a: integer;
begin
a:=1; sum:=0; k:=0;
writeln('Вводите числа');
while a<>0 do begin
readln(a);
if (a<0)and(a mod 10=-5) then begin k:=k+1; sum:=sum+a; end;
end;
if k=0 then writeln('Таких чисел нет') else writeln('Среднее арифметическое равно ', sum/k );
readln
end.<span>
</span>
Uses crt;
const N=10;
var a:array [1..N] of integer;
x,k:integer;
begin
k:=0;
for x:=1 to 10 do
begin
a[x]:=random(1000)+1;
writeln('a[',x,']:',a[x]);
if (a[x]>=100) and (a[x]<=999) then
if (a[x] mod 10=7) or (a[x] div 100=7)
or (a[x] div 10 mod 10=7) then inc(k);
end;
writeln('Количество трехзначных элементов, содержащих цифру 7:',k);
<span>end.</span>
#include <iostream>
using namespace std;
int main()
{
int n, ans = 1;
cin >> n;
int i;
for(i = 0; i <= n; i += 5)
ans *= 4;
cout << ans / 4;
}
1)Это четное число?
-Да (1)
2)Меньше 50?
-Да (2)
3) Меньше 25?
-Да(3)
4) Меньше 12?
Да(4)
5)Меньше 6?
да(5)
Меньше 3?
да(6)
Это единица