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

Написать программу, которая вводит три числа, перевести их в строковый тип и вывести последовательно друг за другом через пробел.(Паскаль)

👇
Ответ:

Program XD;

var z,x,c:integer;

begin

 read(z,x,c);

 write(z,' ',x,' ',c,' ');

end.

Объяснение:

4,7(32 оценок)
Открыть все ответы
Ответ:
ramazancheh20
ramazancheh20
25.03.2023
Var a,i,j,b,p,p1:longint;
m:array[0..501] of longint;
procedure qsort(l,r:longint);
var q,w,i,j,p:longint;
begin
q:=m[(l+r) div 2];
repeat
while m[i]<q do inc(i);
while m[j]>q do dec(j);
if i<j then
begin
w:=m[i];
m[i]:=m[j];
m[j]:=w;
inc(i); dec(j);inc(p);
end;
if i=j then
begin
inc(i);dec(j);
end;
until i>j;
if i<r then qsort(i,r);
if j<l then qsort(l,j);
p1:=p;
end;
begin
for i:=1 to 500 do
m[i]:=random(100);
for i:=1 to 500 do
for j:=500 downto i+1 do
if m[j]<m[i] then
begin 
a:=m[j]; 
m[j]:=m[i]; 
m[i]:=a; 
inc(p);
end;
writeln(p);
qsort(1,500);
writeln(p1);
end.
4,8(18 оценок)
Ответ:
Chundokova
Chundokova
25.03.2023
Var  i1, i2, i3: 1..9;  //Цифры трехзначного числа  i, n: integer;  //n - количество трехзначных чисел, у которых ... begin  n:= 0;  //Обнуляем счетчик  for i:= 100 to 999 do  //Перебираем все трехзначные числа и считаем количество  begin    i1:= i div 100;    i2:= (i mod 100) div 10;    i3:= i mod 10;     if (i1 + i2 + i3) mod 2 = 0 then n:= n + 1;  end;  writeln('Количество трехзначных чисел, у которых сумма цифр является четным числом равна:  ', n);  //Выводим количествоend.Если все правильно, отметь решение как лучшее)
4,8(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ