М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
rafuw1
rafuw1
21.03.2021 00:01 •  Информатика

1. Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). 2. Дано двузначное число вида ab. Вывести квадрат числа ba (ba**2)
3. Дано число 0 < n < 10. Вывести верно фразу "На лугу пасётся ", n "корова/коровы/коров".

garden = 'В нашем саду растут 20 яблонь и 15 груш.'
1. Заменить 20 на 35.
2. Поменять местами "яблонь" и "

👇
Ответ:
чо2
чо2
21.03.2021

1.

number=int(input())

print(number//10)

print(number%10)

2.

number=int(input())

number = number%10 * 10 + number//10

print(number**2)

3.

n=int(input())

if n==1:

   slovo="корова"

elif 1<n<5:

   slovo="коровы"

elif 5<=n<10:

   slovo="коров"

print("На лугу пасётся",n,slovo)

4.

garden = 'В нашем саду растут 20 яблонь и 15 груш.'

garden=garden.replace("20","35").replace("яблонь",'"')

print(garden)

Примечание: вы видимо упустили в последнем задании что то

4,8(99 оценок)
Ответ:
Amir011kz
Amir011kz
21.03.2021

(см. объяснение)

Объяснение:

Программы написаны на языке PascalABC.NET 3.8 сборка 2899.

Задача №1:

##

ReadString.ForEach(procedure(x)->print(x))

Задача №2:

##

power(Integer.Parse(ReadString[::-1]),2).Print;

Задача №3:

##

var n: integer := ReadInteger;

print('На лугу пасётся '+n);

case n of

1: print('корова.');

2..4: print('коровы.');

5..9: print('коров.');

end;

Задача №4:

##

'В нашем саду растут 20 яблонь и 15 груш.'.Replace('20','35').Replace('груш','яблонь').Replace('яблонь','груш',1).Print;

Задание выполнено!

4,4(8 оценок)
Открыть все ответы
Ответ:
di1808
di1808
21.03.2021

схема и объяснение снизу

program ufhcn;

var x, y, a, i, b: real;

uses crt;

begin

clrscr;

writeln('вводи число 1');

readln(i);

writeln('вводи число 2');

readln(x);

if (x> =0) then writeln('все в порядке')

else writeln('не правильная цифра');

if (i> =1) and (i< =13)

then writeln('число входит в ряд', x*i> =a)

else writeln('не входит ряд');

writeln('води число 3');

readln(a);

if (a> =0) then writeln('вводи число 4');

readln(b);

if (b> =0) then writeln('находим первый y= ', a*x*(i*i*i)+b*sqrt(x*i));

if (b< 0) then writeln('находим второй y= ', (sin(x)/cos(x))*(a-(x*

end.

начало

вводим переменную i

вводим переменную x

если x> =0 то

если нет если да

то нет. то далее

ввели интервал в переменную i

если (i> =1) и (i< =12) то

если нет. если да

то нет решения. то есть решение

вводим число 3

если (а> =0) то

вводим число 4

если (b> =0) то

y1= a*x*(i*i*i)+b*sqrt(x*i))

если (b< 0) то

y2= ', (sin(x)/cos(x))*(a-(x*

конец

короче объясняю.

ввёл 4 переменных

сделал так чтобы все вводимые были больше нули или равны ему чтобы легче было.

ввёл интервал i от 1 до 12

остальное решает уравнение поле ввода 4 переменных, если что-то не устроило пиши разберусь

4,4(12 оценок)
Ответ:
DestroyMe
DestroyMe
21.03.2021

Sub Swap()

   Dim r As Range, A As Variant

   Dim i As Integer, im As Double, n As Integer, t As Double

   n = 15

   Set r = Range(Cells(1, 1), Cells(1, n))

   A = r

   im = 1

   For i = 2 To n

       If A(1, i) > A(1, im) Then

           im = i

       End If

   Next i

   t = A(1, im)

   A(1, im) = A(1, n)

   A(1, n) = t

   Set r = Range(Cells(2, 1), Cells(2, n))

   r = A

End Sub

На лист в ячейки А1 - О1 заносим исходные 15 чисел

На этот же лист через проект помещаем макрос и запускаем.

Результат будет в ячейках А2 - О2

4,4(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ