4 года назад

Помогите решить. Найти значение S. A=458*y/125, B=a(a-589), C=x-789, S=A+B+C. Значение а, x и y вводим с клавиатуры.

1 ответ:

anri74 [208]4 года назад

0 0

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var a,x,y,s:real;
begin
readln(a,x,y);
s:=458*y/125+a*(a-589)+(x-789);
println(s);
end.

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

Текст книги, набранной на компьютере, содержит 200 страниц и занимает в памяти компьютера 500 Кбайт. Для кодирования символов ис

Александр Вишневский

500 Кбайт=512000 байт
16 бит=2 байта
512000/2=256000 символов всего
256000/200=1280 символов на странице

Ответ: 1280

0 0

3 года назад

НАПИСТЬЬ ПРОГРАМУ НА ПАСКАЛЕдан массив из 12 случайных чисел от 0 до 30 вывести на экран индексы четных элементов массава

лишь мнение

Var ar:array[1..12] of integer;
ar2:array[1..12] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 12 do
begin;
ar[i]:=random(30);
write(ar[i]:4);
if ar[i] mod 2=0 then
begin;
inc(k);
ar2[k]:=i;
end;
end;
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar2[i]:4);
end.

0 0

4 года назад

1.Ипполит задумал трёхзначное число, которое при делении на 15 даёт в остатке 11, а при делении на 11 даёт в остатке 9. Напишите

Марфа Васильевна я [7]

Var i:integer;

Begin

for i := 100 to 999 do

if (i mod 15 = 11) and (i mod 11 = 9)

then writeln(i);

End.

Var i,n,s:integer;

Begin

read (n);

s := 1;

for i := 1 to n do

s := s * i;

write(s);

End.

Var i,j,k:integer;

Begin

for i:=1 to 9 do

for j:=0 to 9 do

for k:=0 to 9 do

if i*i*i+j*j*j+k*k*k=i*100+j*10+k

then writeln(i*100+j*10+k);

End.

0 0

5 лет назад

Помоги, пожалуйстаааа!!!! Умоляю

Ctvty

Ru Рашка
ua Украина
org Оргия какая-то
cn Ускоглазики из Китая

0 0

4 года назад

Прочитать ещё 2 ответа

реализуйте решение задачи, программируя на Паскале. Программа морскрй бой. Учитель задумывает два числа от 0 до 9. (Водятся учит

Юрий ЮРЬЕВИЧ ТЕРЕ...

Begin
var x,y:real;
read (x);
if (x>=0) and (x<=9) then
begin
while (y<>x) do
begin
read (y);
if (y<>x)then writeln ('Мимо') else writeln ('Попал');
end;
end else writeln ('Неверный ввод');
end.

0 0

4 года назад