Задача 1. Ввести 4 числа и сравнить среднее арифметическое первых двух чисел со средним арифметическим следующих двух чисел. Пример работы программы: » 1 2 4 5 « 2 среднее арифметическое больше пояснение: (1+2)/2=1.5 (4+5)/2=4.5 1.5 < 4.5 - следственно делаем вывод Задача 2. У вас есть кот. Кот "потребляет" N грамм кошачьего корма в сутки. - Посчитать необходимое количество корма для кота на месяц, если иметь в виду, что в месяце 30 дней. Значение вывести в граммах, после перевести в килограммы. - Посчитать затраты на "прокормку" кота в месяц, исходя из того, что стоимость 1 кг кошачьего корма (который любит кот) составляет Price рублей. Пояснение: переменные N и Price вводятся с клавиатуры. Задача 3. Программа запрашивает ваш пол (м и ж обозначить цифрами 1 и 2 соответственно Если пользователь выбирает первый вариант, то программа запрашивает любимое женское имя, если второй вариант - наоборот. Пояснение: за пол отвечает целочисленная переменная (тип integer), за имя - переменная строкового типа (тип string). Например, var gender:integer; var name:string Задача 4. Дано дробное число. Посчитать его квадрат, куб и выделить целую часть.
Ответы
Все элементы будут равны единице.
Сначала они будут заполнены значением, большим своего индекса на 1, а потом каждому элементу, начиная со второго (который А[1]) будет присвоено значение предыдущего элемента и 1 распространится везде.
Для проверки была написана программа с отладочной выдачей.
var
a:array[0..10] of integer;
i:integer;
begin
for i:=0 to 10 do begin a[i]:=i+1; Write(a[i],' ') end;
Writeln;
Write(a[0],' ');
for i:=1 to 10 do begin a[i]:=a[i-1]; Write(a[i],' ') end
end.
Результаты
1 2 3 4 5 6 7 8 9 10 11
1 1 1 1 1 1 1 1 1 1 1
ответ: 3)
Сначала они будут заполнены значением, большим своего индекса на 1, а потом каждому элементу, начиная со второго (который А[1]) будет присвоено значение предыдущего элемента и 1 распространится везде.
Для проверки была написана программа с отладочной выдачей.
var
a:array[0..10] of integer;
i:integer;
begin
for i:=0 to 10 do begin a[i]:=i+1; Write(a[i],' ') end;
Writeln;
Write(a[0],' ');
for i:=1 to 10 do begin a[i]:=a[i-1]; Write(a[i],' ') end
end.
Результаты
1 2 3 4 5 6 7 8 9 10 11
1 1 1 1 1 1 1 1 1 1 1
ответ: 3)
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
var
n,a,i,max,fl:integer;
begin
writeln('Введите кол-во участников>>');
readln(n);
max:=0; fl:=0;
for i:=1 to n do
begin
writeln('Введите кол-во правильных ответов, данных участником ',i);
readln(a);
if (a > max) then max:=a;
if a=0 then fl:=1;
end;
if fl=1 then writeln('YES') else writeln('NO');
writeln('Победитель набрал ',max,' ');
end.
Пример:
Введите кол-во участников>> 5
Введите кол-во правильных ответов, данных участником 1 15
Введите кол-во правильных ответов, данных участником 2 18
Введите кол-во правильных ответов, данных участником 3 0
Введите кол-во правильных ответов, данных участником 4 8
Введите кол-во правильных ответов, данных участником 5 10
YES
Победитель набрал