Выберите любой объект и напишите три любых его свойства и три любых его действия.

Знания

Информатика

1 ответ:

Вячеслав З4 года назад

0 0

Машина (качественная, чистая, большая )
едет, гудит,стоит

Читайте также

Помогите с заданием на языке Pascal Используя оператор условного перехода, напишите программу, которая: запрашивает с клавиатуры

Bread324 [1]

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b):=ReadReal2('Введите два числа через пробел:');
var (s1,p1):=ReadReal2('Введите через пробел из сумму и произведение:');
var (s2,p2):=(a+b,a*b);
if s1=s2 then Writeln('Сумма верна')
else Writeln('Сумма не верна, ',s2);
if p1=p2 then Writeln('Произведение верно')
else Writeln('Произведение не верно, ',p2)
end.

Пример
Введите два числа через пробел: 1.4 -2.5
Введите через пробел из сумму и произведение: -1.1 -3.25
Сумма верна
Произведение не верно, -3.5

0 0

4 года назад

ПОМОГИТЕ,ИНФОРМАТИКА Найдите количество пятизначных натуральных чисел, цифровая запись которых в десятичной системе счисления с

irishanti [21]

Ответ: 3700
Программа(PascalABC Net):
var i, j, s, x: integer;
begin
for i:= 10000 to 99999 do begin
x:=i;
for j:= 1 to 4 do begin
if (x mod 10 = 3) and ((x mod 100) div 10 = 1) then s:= s + 1;
x:=x div 10;
end;
end;
writeln(s);
end.

0 0

4 года назад

Помогите пожалуйста!:) Последовательно вводятся N целых чисел. Найти среднее арифметическое этих чисел.

AleksandraTolina [9.6K]

N разделить на кол-во чисел

0 0

4 года назад

Запиши число 12661 в развёрнутом виде, начиная со старшего разряда.

Иван109

12661=10000+2000+600+60+1

0 0

4 года назад

Дан диаметр окружности d. Найти ее длину L. В качестве значения π использовать 3.14.Справка: L = π ∙d

Игорь1900 [50]

var d,l:integer;
begin
readln(d);
l:=3.14*d;
writeln(l);
end.

0 0

4 года назад