Предмет: Информатика,
автор: 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.
Похожие вопросы
Предмет: Литература,
автор: sovaalina
Предмет: Другие предметы,
автор: kudajbergenovaajnaz
Предмет: География,
автор: Аноним
Предмет: Математика,
автор: kotyraspb
Предмет: Математика,
автор: AdrianaSmit