Однажды встретились Системный Блок и Клавиатура.
- Что у тебя с памятью? - напечатала клавиатура.
- Всё нормально, - прогудел Системный Блок, - как проживает твоя сестра Мышка?
- Ушла в отпуск, - отпечатала клавиатура, - теперь одна работаю на Компьютер.
- Ты всё ещё работаешь на тот Компьютер? - удивился Системный Блок, скрипя процессором.
- Да, но я решила работать на тебя.
- Вот как! - обрадовался Системный Блок.
- Да. Ну ладно, до скорого! Не зависай в нужные моменты!
- Удачи! Пусть твои клавиши останутся такими же чистыми, какие они сейчас!
Клавиатура и Системный Блок попрощались, после чего их выключили из сети.
_______________________________________
<em>Смахивает на наркоманию... Ну, надеюсь, это именно то, что нужно :)</em>
Program umnochen1;
uses crt;
var a,b,c,d:integer;
BEGIN
a:=random(100);
b:=random(100);
c:=a*b;
write(a,'x',b,'=');
read(d);
if (d=c) then begin
textcolor(2);
writeln('Првильно!')
end
else
begin
textcolor(4);
writeln('Вы ошиблись!');
end;
<span>end.</span>
1=4 буквы
2=3 буквы
3=3 буквы
4=6 букв
5=4 буквы
6=5 букв
7=4 буквы
8=6 букв
9=6 букв
больше всего по шесть букв(т.е. тяжеловесов) в цифрах 4,8,9 , следовательно 4+8+9=21
ответ:21
<span>1 Дан массив А(10). Заменить все нечетные элементы массива на минимальное значение. вывести преобразованный массив.</span>
<span>2 Вести массив А(36). найти произведение первых пяти элементов массива, сумму остальных и частное от деления произведения и суммы. вывести все результаты.
1) при помощи цикла найти минимальное значение.
2) записать значение минимума в отдельную переменную.
3) при помощи цикла каждый элемент проверять на четность, если элемент четный, то тогда переходить к следующему, а если он не четный, то приравнивать его к переменной в которой записан минимум.
1) при помощи цикла ограниченным до 5ого элемента включительно любую объявленную переменную и заранее приравненную к единице умножить поэлементно(при помощи цикла)
2) начиная с 6 элемента и до конца при помощи цикла сложить все элементы и записать эту сумму в отдельную объявленную переменную
3)записать в объявленную переменную выражение произведение/сумму.
4) вывести все переменные на экран.
</span>
Const
n = 10;
type
wind = record
c: char; //направление ветра (с,ю,в,з)
f: integer; //сила ветра
end;
var
a: array[1..n] of wind;
i, nday: integer;
begin
for i := 1 to n do
begin
write(i, ' - день направление ветра (с,ю,в,з)');
readln(a[i].c);
write('сила ветра :');
readln(a[i].f);
if (a[i].c = 'ю') and (a[i].f <= 4) then nday := nday + 1;
end;
writeln(' Дней когда дул южный ветер с силой, не превышающей 4 м/с :',nday);
end.
Тестовое решение:
1 - день направление ветра (с,ю,в,з)с
сила ветра :7
2 - день направление ветра (с,ю,в,з)с
сила ветра :7
3 - день направление ветра (с,ю,в,з)ю
сила ветра :6
4 - день направление ветра (с,ю,в,з)ю
сила ветра :5
5 - день направление ветра (с,ю,в,з)ю
сила ветра :4
6 - день направление ветра (с,ю,в,з)в
сила ветра :4
7 - день направление ветра (с,ю,в,з)ю
сила ветра :3
8 - день направление ветра (с,ю,в,з)в
сила ветра :5
9 - день направление ветра (с,ю,в,з)з
сила ветра :4
10 - день направление ветра (с,ю,в,з)ю
сила ветра :3
Дней когда дул южный ветер с силой, не превышающей 4 м/с :3