Var n,m,k:integer;
begin
write('n='); readln(n);
k:=0;
while n>0 do
begin m:=n mod 10;
if m mod 2 = 0 then k:=k+1;
n:=n div 10;
end;
writeln('k=',k);
end.
Пример:
n=123456
k=3
Uses crt;
var m:array[1..4,1..5] of integer;
b:array[1..4] of integer;
min,i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(35)-30;
end;
<span>end;
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(m[i,j]:3,' ' );
writeln;
end;
min:=m[1,1];
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
if min>m[i,j] then min:=m[i,j];
end;
b[i]:=min;
min:=m[i+1,1];
end;
for i:=1 to 4 do
writeln(i,') ',b[i]);
readkey;
end.
</span>
1)
#include <iostream>
#include <math.h>
using namespace std;
double circle_perimtr(int r) {
return 2*M_PI*r;
}
int main() {
int r;
cin >> r;
r > 0 ? cout << circle_perimtr(r) << endl : cout << "wrong" << endl;
}
2)
#include <iostream>
#include <limits.h>
using namespace std;
double max_height(int* heights) {
int max = INT_MIN;
for(int i = 0; i < 6; i++)
if(heights[i] > max) max = heights[i];
return max;
}
int main() {
int heights[6];
for(int i = 0; i < 6; i++)
cin >> heights[i];
cout << max_height(heights) << endl;
}
Автоматический (через заданное количество времени), и по щелчку
(алгоритм смотрите ниже)Программа:
Program popcorn;
var y,a,b : real;
begin
write ('ввести два разных числа ');
read(a,b);
if (a>b) then begin y:=a*a-b*b*b;write('разница квадрата большего и куба меньшего числа =',y);end else begin y:=b*b-а*а*а;write('разница квадрата большего и куба меньшего числа =',y);end;
end.
Алгоритм:
1)ввести два разных числа
2)найти большее число
3)написать формулу разности квадрата большего и куба меньшего числа.