4 года назад

Написать программу которая делит любое число на х срочно пожалуйста

1 ответ:

0 0

Каков вопрос - таков ответ:
var x,y:integer;
begin
write('x = ');
readln(x);
y:=random(1000)+1;
writeln('Делю число ',y,' на ',x,': ',y,'/',x,' = ',y/x);
end.

Пример:
x = 5
Делю число 595 на 5: 595/5 = 119

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

-Проверьте, есть ли среди трех заданных чисел равные.Программку в Паскале напишите )

as45636

var a,b,c:integer;

begin

readln(a,b,c);

if((a=b)or(b=c)or(c=a)) then writeln(':)') else writeln(':(')

end.

0 0

4 года назад

Решить нужно задачу №16 На одном фото условие, на другом - задача Помогите пж

iranlev123

Program ex16;
var
   a,b,x,z,alpha:real;
begin
   Write('a,b=');
   Read(a,b);
   x:=(a+b)/2;
   z:=(1+x)/(1+(1+x)/x);
   alpha:=a*x*x-cos(b*x)+z/2;
   Writeln('x=',x,' z=',z,' alpha=',alpha)
end.

Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00

0 0

3 года назад

Ребят помогите пж. Задача по информатике в паскале. Задача:Составить программу вычисления суммы цифр числа, если кол-во неизвес

Albinabela [7]

Uses crt;
var a,b: Integer;
Begin
Write('Введите целое число: ');
Read a;
While a>0 do
Begin
b:=b+a mod 10;
a:=a div 10;
End;
Writeln('Сумма цифр введённого числа равна ', b);
End.

0 0

4 года назад

Задан массив из 10 случайных целых чисел от 0 до 50 . Увеличить в 2 раза элементы массива кратные 5, остальные элементы массива

Zakey [57]

Uses crt;
var a=array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(50);
if (a[i]mod5=0) there
a[i]:=a[i]*2;
else
a[i]:=a[i]/2;
for i:=1 to 10 do
writeln(a[i]);
end.

0 0

3 года назад

Напишите (отправьте фотографию), что нужно написать в программе PascalABC.NET, чтобы создать программу《 Begin1°. Дана сторона кв

Алмаз-Изумруд [2]

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите её версию!

begin
Writeln(ReadReal('a=')*4,' - периметр')
end.

Пример
a= 12.7
50.8 - периметр

0 0

3 года назад