Все категории

4 года назад

Составить программу вычисления скорости из км/ч в м/с в программе абс паскаль

Знания

Информатика

1 ответ:

madshus1309 [6]4 года назад

0 0

Program n1;
var a: real;
begin
write('введите скорость в км/ч: ');
readln(a);
write('эта скорость в м/с: ',a*5/18);
end.

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

Помогите пожалуйста с информатикой. Надо все это сделать.

molekula

Txt и doc текстовый, zip архив, exe исполнительный

0 0

4 года назад

Составьте программы решение задач с помощью исполнителя Чертёжник и выполните их в системе программирования Pascal ABC

ipw78 [2]

) program a2;

uses drawman;

begin

topoint ( 3, 2);

pendown;

topoint ( 5, 4);

topoint ( 1, 6);

topoint ( 5, 4);

topoint ( 8, 5);

topoint ( 5, 4);

topoint ( 7, 1);

penup;

topoint (0, 0);

end.

2) program a2;

uses drawman;

begin

topoint ( 2, 1);

pendown;

topoint ( 6, 1);

penup;

topoint ( 3, 2);

pendown;

topoint ( 3, 5);

penup;

topoint ( 4, 4);

pendown;

topoint ( 9, 3);

penup;

topoint ( 0, 0);

end.

0 0

4 года назад

Дан массив определить сколько раз в массиве встречается миимальныйн элемент Решить в паскале

SailorVina [14]

var

a:array[1..100] of integer;

x,i,n,min:integer;

begin

readln(n);

x:=1;

read(a[1]);

min:=a[1];

for I:=2 to n do

begin

read(a[i]);

if a[i]<min then

begin

min:=a[i];

x:=1

end;

if a[i]=min then x:=x+1;

end;

writeln(x)

end.

Комментарий: n- количество элементов массива, вводится с клавиатуры в диапазоне от 1 до 100

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО 3 и 4 номера решите пожалуйста!

Мила30

3) Решения
2 Кбайта=2*2^13 бита= 2^14 бита
128 *128=2^7 *2^7=2^14 (количество пикселей)
2^14(бита) : 2^14 (кол. пикс.) =1 бит ( для одного пикселя)
2^1=2 - количество цветов (чёрно-белое изображение)

4) Решения
32Х64=2048 символов на 1 странице
2048Х15=30720 символов в 15 страницах
каждый символ по идее по 2 байта
30720Х2=61440 байта
В 1 килобите 1024 байта
61440:1024=60
ответ 60 килобайт

0 0

3 года назад

При опросе 13 человек, каждый из которых знает по крайней мере один иностранный язык, выяснилось, что 10 человек знают английски

еленс [7]

Если я правильно помню принцип кругов Эйлера, то один... Иначе ждите второго ответа:)

0 0

4 года назад