Вариант 3. а) в ответе запишите только количество чисел. б) в ответе запишите строчку длиной 8 символов, состоящую из 0 и 1. ноль будет обозначать, что соответствующее число не может получиться описанным а 1 – что может. 1) ав¬то¬мат по¬лу¬ча¬ет на вход четырёхзнач¬ное де¬ся¬тич¬ное число. по этому числу стро¬ит¬ся новое число по сле¬ду¬ю¬щим пра¬ви¬лам. 1. вы¬чис¬ля¬ют¬ся два числа — сумма пер¬вой и вто¬рой цифр и сумма тре¬тьей и четвёртой цифр за¬дан¬но¬го числа (сумма двух старших и сумма двух младших разрядов 2. по¬лу¬чен¬ные два числа за¬пи¬сы¬ва¬ют¬ся друг за дру¬гом в по¬ряд¬ке не¬воз¬рас¬та¬ния (без раз¬де¬ли¬те¬лей). сколь¬ко из чисел могут по¬лу¬чить¬ся в ре¬зуль¬та¬те ра¬бо¬ты ав¬то¬ма¬та. 1915 20 101 1213 1312 312 1519 112 1212 2) ав¬то¬мат по¬лу¬ча¬ет на вход трёхзнач¬ное число. по этому числу стро¬ит-ся новое число по сле¬ду¬ю¬щим пра¬ви¬лам. 1. вы¬чис¬ля¬ют¬ся два числа - сумма стар¬ше¬го и сред¬не¬го раз¬ря¬дов, сумма сред¬не¬го и млад¬ше¬го раз¬ря¬дов. 2. по¬лу¬чен¬ные два числа за¬пи¬сы¬ва¬ют¬ся друг за дру¬гом в по¬ряд¬ке не¬воз¬рас¬та¬ния (без раз¬де¬ли¬те¬лей). при¬мер: 277. по¬раз¬ряд¬ные суммы: 9, 14. ре¬зуль¬тат: 149. сколь¬ко из чисел могут по¬лу¬чить¬ся в ре¬зуль¬та¬те ра¬бо¬ты ав¬то¬ма¬та. 1515 159 153 1915 1519 315 915 115 3) ав¬то¬мат по¬лу¬ча¬ет на вход четырёхзнач¬ное число. по этому числу стро¬ит¬ся новое число по сле¬ду¬ю¬щим пра¬ви¬лам. 1. вы¬чис¬ля¬ют¬ся два числа - сумма чет¬ных и сумма не¬чет¬ных цифр. 2. по¬лу¬чен¬ные два числа за¬пи¬сы¬ва¬ют¬ся друг за дру¬гом в по¬ряд¬ке не¬убы¬ва¬ния (без раз¬де¬ли¬те¬лей). при¬мер. 2177. сумма чет¬ных цифр - 2, не¬чет¬ных - 15. ре¬зуль¬тат: 152. сколь¬ко из чисел могут по¬лу¬чить¬ся в ре¬зуль¬та¬те ра¬бо¬ты ав¬то¬ма¬та. 419 1319 2014 1811 1212 205 322 294 55 4) ав¬то¬мат по¬лу¬ча¬ет на вход четырёхзнач¬ное число. по этому числу стро¬ит¬ся новое число по сле¬ду¬ю¬щим пра¬ви¬лам. 1. вы¬чис¬ля¬ют¬ся два числа -сумма всех цифр и произведение всех цифр 2. по¬лу¬чен¬ные два числа за¬пи¬сы¬ва¬ют¬ся друг за дру¬гом в по¬ряд¬ке невозрастания (без раз¬де¬ли¬те¬лей). пр. исходное число 7712. поразрядные суммы 17, 98. результат 9817 сколь¬ко из чисел не могут по¬лу¬чить¬ся в ре¬зуль¬та¬те ра¬бо¬ты ав¬то¬ма¬та. 63 89 98 200 291 1311 656136 756423
Ответы
№1
var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln('F = ', F);
end.
№2
var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln('F = ', F);
end.
№3
var a,b,c: real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
if ( a < b ) AND ( b < c ) then writeln('a < b < c')
else
if ( b > a ) AND ( a > c ) then writeln('b > a > c')
else
writeln('Неравенства не выполняются');
end.
var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln('F = ', F);
end.
№2
var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln('F = ', F);
end.
№3
var a,b,c: real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
if ( a < b ) AND ( b < c ) then writeln('a < b < c')
else
if ( b > a ) AND ( a > c ) then writeln('b > a > c')
else
writeln('Неравенства не выполняются');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
C++ дан текстовый файл. напечатать символы с k1 по k2 в каждой строке. , .
Автор: apro3444595
Написать программу в паскале вводим число, проверить извлекается из него корень?
Автор: Svetlana290419
Визнач, який з об'єктів на малюнку може бути програмним
Автор: lakeeva90
Сколько существует различных символьных последовательностей длины 5 из букв а и б
Автор: annakuzina2023
n = 11;
var
x: array[1..n] of integer;
i, k, d, s: integer;
begin
Randomize;
Writeln('Элементы массива');
k := 0; s := 0;
for i := 1 to n do
begin
d := Random(11) - 5;
Write(d:3);
if (i mod 2) = 0 then begin { четное место }
if d = 1 then Inc(k);
x[i] := d
end
else begin
if d < 0 then s := s + d;
x[i] := sqr(d)
end
end;
Writeln;
Writeln('Результирующий массив');
for i := 1 to n do Write(x[i]:3);
Writeln;
Writeln('Количество единиц на четных местах равно ', k);
Writeln('Сумма отрицательных элементов на нечетных местах равна ', s)
end.
Тестовое решение:
Элементы массива
-3 0 -5 1 5 1 -3 -4 5 -3 -2
Результирующий массив
9 0 25 1 25 1 9 -4 25 -3 4
Количество единиц на четных местах равно 2
Сумма отрицательных элементов на нечетных местах равна -13