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

Напишите на языке паскаля. дано число. является ли оно двухзначным чётным,кратное трём

👇
Ответ:
anya2909
anya2909
19.12.2020
Var a:integer;
readln(a);
If (a<100) and (a>9) then writeln ('двух значное');
If a mod 2 = 0 then writeln('четное');
If a mod 3 = 0 then writeln ('кратное');
end.
4,4(27 оценок)
Ответ:
sapogidarom
sapogidarom
19.12.2020
Var n:integer;
begin
readln(n);
if (n<=99) and (n>=10) and (n mod 6 = 0) then write('является')
else write('не является');
end.
4,6(97 оценок)
Открыть все ответы
Ответ:
Арина838383773
Арина838383773
19.12.2020

int n = Convert.ToInt32(Console.ReadLine())

Объяснение:

Это Ввод данных. Первые две задачи выполнены хорошо. Если хочешь вводить число n , то в вызове метода убери параметры и оставь свободным.

static void Main()

{

(10,45);

ShowSequenceOfOddNumbers(5);

CreateAndShowArray();    // Вот так

}

А чтоб вводить число добавь строку "Ввода данных"

int n = Convert.ToInt32(Console.ReadLine())

Например:

tatic void CreateAndShowArray()     // Пустой параметр

{

int n = Convert.ToInt32(Console.ReadLine())

long p = 1;

for (int i = 0; i < n; i++)

{

a[i] = new Random().Next(0, 100);

Console.Write(a[i] + " ");

p *= a[i];

}

4,4(81 оценок)
Ответ:
IrinaEfremova2003
IrinaEfremova2003
19.12.2020
1)
 var 
n:integer;
begin 
readln(n); 
if(n<0)then write(0) 
else write(n+4);
end.

2)
 var
  a, b: integer;
 begin
  readln(a, b);
  if(a = b) then
write(1)
  else
write(0);
end.

3)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a >= 0) then s := s + 1;
  if(b >= 0) then s := s + 1;
  if(c >= 0) then s := s + 1;
  write(s);
end.

4)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a > 0) then s := s + a;
  if(b > 0) then s := s + b;
  if(c > 0) then s := s + c;
  write(s);
end.
5)
 var
  a, b, c: integer;
 begin
  readln(a, b, c);
  if (a < b) then swap(a, b);
  if (a < c) then swap(a, c);
  if (b < c) then swap(b, c);
  write(a, ' ', b, ' ', c);
end.

6)
 var n, k, s, i: integer;
 begin
  s := 0;
  readln(n, k);
  for i := 1 to n.ToString.Length do
  if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
  write(s);
 end.

7)
 var n, s, i: integer;
 begin
  s := 0;
  readln(n);
  for i := 1 to n do
    s := s + i;
  write(s);
 end.

9)
 var n, i: integer;
 begin
  readln(n);
  for i := n downto 1 do
  write(i);
 end.

12
 var
  n, i: integer;
  s: real;
 begin
  s := 0;
  readln(n);
  for i := n downto 1 do
  s:=s+(0.1*i);
    write(s);
 end.

13)
 var n, i: integer;
 begin
  readln(n);
  for i := 1 to n do
    write(sqr(i), ' ');
end.

14)
 var
  n, i, c: integer;
 begin
  i := 1;
  c := 0;
  readln(n);
  while (c <> n) do
  begin
    if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
    i := i + 1;
  end;
end.

15)
 var
  n, i, a: integer;
  c: real;
 begin
  i := 1;
  c := 0;
  readln(n);
  for i := 1 to n do
   begin
    read(a);
    c := c + a;
  end;
  write(c / n)
end.

16)
 var
  n, i, a: integer;
 begin
  i := 1;
  while true do
   begin
    read(a);
    if(a = 0) then break;
    n := n + 1;
  end;
  write(n)
end.
4,7(33 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ