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

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

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

2 года назад

13

Спасите!!! пожалуйста,помогите))

Спасите!!! пожалуйста,помогите))

Информатика

1 ответ:

PROЖEKTOR2 года назад

0 0

#010101 цвет..............

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

ПОМОГИТЕ СРОЧНО!!! НЕСЛОЖНО !!!!! 1. Даны два случайных числа. Определить а) наибольшее б) наименьшее 2. Даны три числа. Вывести

Нина2408

Var a,b,c,d:integer;
begin
read (a,b);
if a>b then begin c:=a; d:=b;end
else c:=b; d:=a;end;
writeln(c,d);
end.

0 0

4 года назад

Помогите пожалуйста сделать задание!)

Тат8097

Какое задание ?????????

0 0

4 года назад

В школьный компьютерный класс завезли 5 компьютеров, которые требуется связать локальной сетью. Известны расстояния между компью

Ольга2500

Это наэлигчайшее!Решай я проверю!

0 0

4 года назад

Каждый из 12 элементов массива Р равен квадрату его индекса. Найти сумму этих квадраторв. (Составить алгоритм решения и программ

starz

Ну алгоритм: просто суммируешь поочерёдно.(можно кубиками нарисовать, но это мне делать не удобно, тем более не сложно)

Вот прога на паскале:

program sym

var p:array[1..12] of integer;

s,i:integer;

Begin

s:=0;

For i:=1 to 12 do

p[i]:=i*i; //если нет уже готового массива

For i:=1 to 12 do

s:=s+p[i];

write(s)

end.

Ну тут кстати массив излишен, если надо просто найти сумму:

program sym1

var s,i:integer;

Begin

s:=0;

For i:=1 to 12 do

s:=s+i*i;

write(s)

end.

Я у себя не проверял, но должно работать)

0 0

1 год назад

ПАСКАЛЬ Дана строка, состоящая ровно из двух слов, разделенных пробелом. Переставьте эти слова местами. Результат запишите в ст

xam [42]

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString.ToWords.Reverse; s.Println
end.

0 0

4 года назад

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