ЗАДАЧА класс Муниципальный уровень ( ) - презентация

1 ЗАДАЧА класс Муниципальный уровень ( )

2 СЭМ ТАРЛИ Сэм вместе с отрядом Ночного дозора вышел из Черного замка и направился к дому Крастера. По дороге еды было мало, а в обязанности Тарли входило делить лепешку на всех братьев. Сэм рассчитал, что на каждого брата в день должно хватить квадратного куска лепешки размером (длина стороны) S мм. Перед ним встала задача, скольких дозорных он сможет накормить прямоугольной лепешкой размером A на В мм? Формат входных данных В трех строчках заданы три целых числа A, B и S (1 A, B, S ). Формат выходных данных Выведите одно число: количество братьев, которых можно накормить. Входные данные Выходные данные

3 program Sam_Tarley; var A, B, S: longint; begin read (A, B, S); A := A div S; B := B div S; print(A*B); end. РЕШЕНИЕ

4 ЗАДАЧА класс Школьный уровень ( )

5 ИЗИ ПРОБЛЕМ У Яромира есть круг радиусом R. Он хочет вписать в него квадрат с максимально возможной площадью. К сожалению, он плох в математике (и геометрии), именно поэтому попросил помощи у вас. Поможете? Формат входных данных В единственной строке дано одно число R - радиус круга. R<=10^4. Формат выходных данных Выведите ответ на задачу - максимальную площадь квадрата. Входные данные Выходные данные

6 program easy; var r, s: real; begin read(r); r := r * 2; s := sqr(r) / 2; print(s); end. РЕШЕНИЕ Вариант 1 program easy; var r, s: real; begin read(r); s := sqr(r) + sqr (r); print(s); end. Вариант 2

7 ЗАДАЧА класс Школьный уровень ( )

8 ВАСЯ ИЛИ АСЯ? Всем известно, что Ася, когда кричит - выкрикивает только буквы "A" и "a"? Нет? Теперь знаете! Также известно, что Вася любитель покричать непонятно что. Ваша задача определить, принадлежит ли крик Асе. Формат входных данных В единственной строке вводится строка, состоящая из строчных и заглавных символов латинского алфавита. Длина строки не больше 100. Формат выходных данных Выведите "Asya", если крик принадлежит Асе, иначе выведите "Vasya". Входные данные Выходные данные NduahO Vasya aaa Asya

9 var s: string; len, i: byte; c: integer; begin c := 0; write('String: '); readln(s); len := length(s); for i := 1 to len do if (s[i] = 'A') or (s[i] = 'a') then c := c + 1; if c = len then print('Asya') else print('Vasya'); end. РЕШЕНИЕ