4 года назад

Нарисуйте проект желаемого дома и напишите алгоритм. Нарисуйте блок схему.

1 ответ:

Tuyana4 года назад

0 0

Алгоритм: этот проект очень удобен в нём есть всё для полноценной жизни. Нарисуй обычную коробку и по комнатам распредели.

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

Переведиет числа в десятичную систему счисления 101011101 и 11101101

Ролд6 [50]

101011101= 349
11101101= 237

0 0

4 года назад

Паскаль АВС.NET Составить программу с записью Дата. Программа должна обеспечивать простейшие функции для работы с данными : увел

limur13mailru

Uses
System;

var
d1, d2: DateTime;
s: string;

begin
Write('Введите дату в формате ДД.ММ.ГГГГ: ');
Readln(s);
d1 := DateTime.Parse(s); { получили дату }
d2 := d1.AddDays(-1);
Writeln('Предыдущий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
d2 := d1.AddDays(1);
Writeln('Следующий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
end.

<u>Тестовое решение:</u>
Введите дату в формате ДД.ММ.ГГГГ: 31.12.2014
Предыдущий день: 30.12.2014
Следующий день: 1.1.2015

0 0

4 года назад

Дано натуральное число найти количество единиц в троичной записи числа

Денис Сергеевич С... [350]

n = int(input())

ans = 0

while n>0:

if n%3 == 1:

ans+=1

n//3

print(ans)

0 0

4 года назад

№1. необходимо составить программу расчета конечной суммы и сравнения полученного результата с контрольным значением. число член

omgukr1997 [21]

Var n,s,i:integer;
begin
write('N='); readln(n);
s:=0;
for i:=1 to n do s:=s+2*i-1;
writeln('S=',s,' N^2=',n*n);
<span>end.</span>

0 0

4 года назад

Паскаль Пиксели рисунка закодированы числами от 0 до 255 (обозначающими яркость пикселей) в виде матрицы, содержащей N строк и M

elensud

Var
c:array[1..1000,1..1000] of integer;
i,j,n,m,sum,aver:longint;
begin
read(n,m);
for i:=1 to n do
for j:=1 to m do
begin
read(c[i,j]);
sum:=sum+c[i,k];
end;

aver:=sum div (n*m);

for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
if c[i,j]<aver then c[i,j]:=0 else c[i,j]:=255;
write(c[i,j],' ');
end;
end;

end.

Проверьте на синтаксические ошибки. В данный момент не могу сам это скомпилировать

0 0

4 года назад