Задать вопрос!

Задать вопрос!

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

3 года назад

9

Помогите 63 задание..

Помогите 63 задание..

Информатика

1 ответ:

Сергей1919 [4]3 года назад

0 0

1,3

......................

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

Решить задачу в стиле турбо паскаля 80-х годов. Тема: Одномерные массивы Известны данные о мощности двигателя(в л.с.) и стоимост

Антонина Шрейдер [7]

Uses Crt;

const
n=30;

type
tA=array[1..n] of integer;
tS=array[1..n] of string[30];

var
i:integer;
p,c:tA;
s:tS;

begin
ClrScr;
for i:=1 to n do begin
    Write('Марка автомобиля ',i,': ');
    Readln(s[i]);
    Write('его мощность (л.с.) и стоимость (руб.); ');
    Readln(p[i],c[i])
    end;
Writeln;
Writeln('Автомобили мощностью не более 80 л.с.');
for i:=1 to n do
    if p[i]<=80 then Writeln(s[i]:30,p[i]:10,c[i]:10);
ReadKey;
end.

0 0

4 года назад

Представьте в виде арифметических выражений следующие утверждения: а) Если к трем прибавить четыре, потом умножить все на четыре

Игорь2222 [14]

а)(3+4)*4 :(8-6)=14

б)<u>27 - 9 = 18 </u>

100 100

во втором примере дроби раздели так 27/100 - 9/100 (дроби)

0 0

4 года назад

как вы понимаете смысл высказывания что написано пером то не вырубишь топором (пожалуйсто лучше поменьше написсать но толково мн

алексей1белов

Это выскаывание означает то что написанна будет вечным как в нашей памяти так и вообщем.Например да нас дошли даже письмена 1290г

0 0

4 года назад

Какими значками изображали египтяне слова солнце идтт хлеб рот?

Василийф

1. Солнце-круг с точкой в центре
2. Идти-две ноги
3. Хлеб-полукруг
4. Рот-сильно вытянутый полуовал

0 0

4 года назад

Что печатает следующая программа? Просто дайте объяснение. program p2 var d,e,f,g,h,i,j,k:integer; funcion Sub1(x,y:integer):int

Alevtina17 [7]

в том виде как есть ничего не делает. После исправления ошибок, принимает следующий вид:

program p2;

var

d, e, f, g, h, i, j, k : integer;

function Sub1(x, y : integer) : integer;

begin

if x+y = 3 then Sub1 := 3 else Sub1 := y-x;

end;

function Sub2(p, q : integer) : integer;

begin

Sub2 := Sub1(p, q)+Sub1(q, p);

end;

begin

g := 4; h := 7; i := 9; j := 5; k := 2; d := 1; e := 3;

f := Sub1(g, h);

f := Sub2(i, j);

f := sub1(g, k);

writeln(g, ' ', h, ' ', i, ' ', j, ' ', k, ' ', d, ' ', e, ' ', f);

end.

и на выходе печатает следующее:

4 7 9 5 2 1 3 -2

0 0

4 года назад