Var k,n:integer;
begin
readln(k);
n:=k mod 7;
writeln('n = ',n);
end.
Пример:
34
n = 6
Ответ:
Скажите значения переменных, тогда напишу программу.И на каком языке уточните.
3 6 7 это номера примеров которые записаны не верно
Что-то такое получилось, пиши в комменты если что не так:
var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.
#include <stdio.h>
#include <stdlib.h>
int main()
{
int n=10;
int max = 20, min = 10;
float a[n];
float b;
float sum=0;
srand (time(NULL));
for (int i=0; i<n; i++) {
a[i] = (float) rand() / RAND_MAX*(max-min)+min;
printf ("%.2f ", a[i]);
}
printf("\n");
printf("b = ");
scanf("%f",&b);
for (int i = 0; i<n; i++) {
if (a[i] > b) sum+=a[i];
}
printf("sum = %.2f\n", sum);
return 0;
}
Пример:
<span>11.93 14.67 18.25 13.99 14.33 11.68 15.80 17.83 13.61 18.20
b = 15
sum = 70.08</span>