В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
tyzigfr
tyzigfr
03.12.2021 03:59 •  Информатика

В какой строке ошибка 1 program z1;
2 var
3 a,b,c,x: ineger;
4
5 procedure test (x,c:integer; var t:integer);
6 begin
7 t:=x+c;
8 end;
9
10 begin
11 readln (x,c) ;
12 a:=x+test(x,c,x) ;
13 end.

Показать ответ
Ответ:
Katzkotareva
Katzkotareva
20.05.2020 01:17
Язык С#
код:
using System;namespace ConsoleApp95{    class Program    {        static void Main(string[] args)        {            int N, M,S = 0 ,SB = 0 ,SA = 0 ;            N = Convert.ToInt32(Console.ReadLine());            M = Convert.ToInt32(Console.ReadLine());            for ( int i = N+1; i < M; i++)            {                if ( i % 2 == 0 )                {                    S += i;                    SA += i;                }                else                {                    SB += i;                }            }            Console.WriteLine(S + "   " + SA + "  " + SB);            Console.ReadKey();        }    }}
0,0(0 оценок)
Ответ:
Макслей
Макслей
28.01.2021 00:46
//Pascal
//1)
var x, y: integer;
begin
write('Введите x y: ');
read(x, y);
if x > y then
writeln(x - y)
else
 writeln(y - x);
end.

//2)
var a, b, c: integer;
begin
write('Введите a b c: ');
read(a, b, c);
if (a > (b + c)) then
writeln(a)
else
writeln(b + c);
end.

//3)
var x, k: integer;
begin
write('Введите x k: ');
read(x, k);
if k = 1 then
writeln(sin(x))
else
if k = 2 then
writeln(cos(x))
else
writeln('k должен быть равен 1 или 2.');
end.

//4)
var p, m: integer;
begin
  write('Введите p, m: ');
  read(p, m);
  if p > m * 2 then
    writeln(p)
  else
    writeln(m * 2);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота