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

Знания

Информатика

1 ответ:

sonna [13]4 года назад

0 0

А какой рисунок так та

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

Дан массив целых чисел размера N.Проверить,образуют ли его эелменты,перечисленые в том же порядке,геометрическую прогрессию.Если

BiGRASH [1]

//Pascal ABC.NET v3.1 сборка 1172

Const
n=4;

Var
ar:array[1..n] of integer;
i,j:integer;
k:real;
begin
writeln('Array:');
for i:=1 to n do
readln(ar[i]);
k:=ar[1]/ar[2];
for i:=1 to n-1 do
if ar[i]/ar[i+1]<>k then
begin
writeln('No');
exit;
end;
writeln('Yup');
end.

Пример ввода:
1
2
4
8
Пример вывода:
Yup

0 0

4 года назад

Помогите пожалуйста решить любую задачу по информатике

s0fia

1)6,25(800:128)
2)96(6*1.25)
3)1,6(40*50*10:12500)

0 0

4 года назад

1 2 5 9 основание классификации

GRAfe

+1, +2, +3, +4 арифметическая прогрессич

0 0

4 года назад

Помогите пожалуйста!Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.

lira-lirika

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

begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
Writeln('П=',Range(a,b).Aggregate(BigInteger(1),(m,n)->m*n))
end.

Пример
Введите a и b: 13 57
П=84607064997021339293398188869165201400121387478093188300800000000000

0 0

4 года назад

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

Написать программу-калькулятор,. в программе паскаль . срочно

Эльвира Летова

Var
p:char;
s,a,b:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите знак действия (+ - * /)');
readln(p);
case p of
'+': s:=a+b;
'*': s:=a*b;
'/': s:=a/b;
'-': s:=a-b;
end;
writeln(s);
end.

0 0

4 года назад