Предмет: Информатика,
автор: ivandios1997
Решите пожалуйста очень срочно надо
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.
Интересные вопросы
Предмет: Математика,
автор: mamzi6
Предмет: Алгебра,
автор: shenishevska
Предмет: Алгебра,
автор: Аноним
Предмет: Физика,
автор: vovannekrasovkrut