Задача "Цифры числа" Напишите программу, определяющую число десятков и единиц в двузначном числе.

Подсказка:

Число единиц – это последняя цифра числа, число десятков – первая цифра. Чтобы получить последнюю цифру любого числа, нужно найти остаток от деления числа на 10. Чтобы найти первую цифру двузначного числа, нужно поделить число нацело на 10.

Задача "Сумма цифр числа"

Напишите программу, в которой рассчитывается сумма цифр двузначного числа.

Задача "Расстояние в метрах"

Напишите программу, которая находит полное число метров по заданному числу сантиметров.

Формат входных данных: на вход программе подаётся натуральное число – количество сантиметров.

Формат выходных данных: программа должна вывести одно число – полное число метров.

Пример 1

Входные данные: 345

Выходные данные: 3

Пример 2

Входные данные: 100

Выходные данные: 1

Пример 3

Входные данные: 89

Выходные данные: 0

Задача "Мандарины"

N школьников делят k мандаринов поровну, неделящийся остаток остается в корзине. Сколько целых мандаринов достанется каждому школьнику? Сколько целых мандаринов останется в корзине?

Формат входных данных: на вход программе подаётся два целых числа: количество школьников и количество мандаринов, каждое на отдельной строке.

Формат выходных данных: программа должна вывести два числа: количество мандаринов, которое достанется школьникам, и количество мандаринов, которое останется в корзине, каждое на отдельной строке.

Пример 1

Входные данные:

3
6

Выходные данные:

2
0

Пример 2

Входные данные:

12
6

Выходные данные:

0
6

Пример 3

Входные данные:

7
4

Выходные данные:

0
4

на уровне 7 класса

Показать ответ

Ответ:

vikadmitrieva5

12.06.2022 00:44

Const
n=5;

Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;

function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;

begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.

0,0(0 оценок)

Ответ:

14062006123

23.04.2023 22:23

Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
$\displaystyle S_1=a^2 \to a=\sqrt{S_1}; \ d=a \sqrt{2}= \sqrt{2S_1} \\ S_2=\frac{\pi D^2}{4} \to D=\sqrt{\frac{4S_2}{\pi}}; \\ d\ \textless \ D \to \sqrt{2S_1}\ \textless \ \sqrt{\frac{4S_2}{\pi}}; \ 2S_1\ \textless \ \frac{4S_2}{\pi} \ \to \ \boxed{\pi s_1\ \textless \ 2S_2}$
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.

Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге

0,0(0 оценок)

Популярные вопросы: Информатика