цикл с параметром паскаль вывести все трехзначные числа оканчивающиеся на 13;42
5-9 класс
|
1)
var i, x: integer;
begin
for i:=1 to 9 do
begin
x:=i*100+13;
write(x: 4)
end
end.
2)
var i, x: integer;
begin
for i:=1 to 9 do
begin
x:=i*100+42;
write(x: 4)
end
end.
Program Thirteen_FortyTwo;
var
i: integer;
s: string;
begin
for i := 100 to 999 do
begin
str (i,s);
if (copy (s, 2, 2) = '13') or (copy (s, 2, 2) = '42') then writeln(s);
end
end.
Другие вопросы из категории
1. умножь на 2
2. вычти 1
Первая из них увеличивает число на экране в 2 раза, вторая уменьшает его на 1. Составьте алгоритм получения из числа 2 числа 13, содержащий не более 5 команд. В ответе запишите только номера команд.
1.1
2.2
3.3
4.4
2)В системе с некоторым основанием число 17 записывается как 101.Укажите основание.
1.2.
2.3
3.4
4.8
3)В коробке 31 шар.Из них 12 красных и 17 желтых.В какой системе счисления такое возможно?
1 и 2 с решением,если можно.
Читайте также
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, оканчивающееся на 3. Пример работы программы: Входные данные Выходные данные 3 23 13 23 3
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное число, оканчивающееся на 4.
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6. Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число минимальное число, оканчивающееся на 6.