Решите пожалуйста очень срочно надо
1) Дано четырехзначное число. Верно ли, что среди его цифр есть кратные трем
2) Даны три целых числа. Вывести среднее значение числа (средним числом назовем то, которое меньше наибольшего, но больше наименьшего числа)
3) Напишите эффективную программ, которая по двум данным натуральным числам х и у, не превосходящим 10000, подсчитывает количество натуральных чисел, заканчивающихся нулем, на отрезке [х,у] (включая концы отрезка).
Ответы
Ответ дал:
0
2) на яве
import java.util.Scanner;
public class Main {
public static void main(String[] args) {
Scanner scn = new Scanner(System.in);
int[] a = new int[3];
int k = 0, m = 0;
for (int i = 0; i < 3; i++) {
a[i] = scn.nextInt();
k = k + a[i];
m++; }
System.out.println(k / m); }}
паскаль
var a: array [1..3] of integer;
i,m,k:integer;
begin
m := 0;
for i := 1 to 3 do
begin
readln(a[i]);
k := k + a[i];
m := m + 1;
end;
write(k / m);
end.
import java.util.Scanner;
public class Main {
public static void main(String[] args) {
Scanner scn = new Scanner(System.in);
int[] a = new int[3];
int k = 0, m = 0;
for (int i = 0; i < 3; i++) {
a[i] = scn.nextInt();
k = k + a[i];
m++; }
System.out.println(k / m); }}
паскаль
var a: array [1..3] of integer;
i,m,k:integer;
begin
m := 0;
for i := 1 to 3 do
begin
readln(a[i]);
k := k + a[i];
m := m + 1;
end;
write(k / m);
end.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад