Алгоритм "диктант" 1)возьми карандаш. 2)напиши диктант по клеточкам. 3)дорисуй полученный рисунок. 4)положи карандаш на место. 5)стоп. на поле в клеточку чуть выше середины стоит точка. учебник информатики 2 кл. 1 часть. горячев а.в.

👇

Увидеть ответ

Ответ:

Zigmynda11

02.01.2022

нарисовать рисунок от точки одну клетку в право и в левое и получатся крест

4,5(71 оценок)

Открыть все ответы

Ответ:

bikaddff

02.01.2022

Program task5;
var v:string; ch,p:integer;
begin
writeln('Введите число');
readln (ch);
case ch of
1: v:= ('один');
2: v:= ('два');
3: v:= ('три');
4: v:= ('четыре');
5: v:= ('пять');
6: v:= ('шесть');
7: v:= ('семь');
    8: v:= ('восемь');
9: v:= ('девять');
10: v:= ('десять');
11: v:= ('одиннадцать');
12: v:= ('двенадцать');
13: v:= ('тринадцать');
  14: v:= ('четырнадцать');
15: v:= ('пятнадцать');
  16: v:= ('шестнадцать');
17: v:= ('семнадцать');
18: v:= ('восемнадцать');
19: v:= ('девятнадцать');
20: v:= ('двадцать' );
21,22,23,24,25,26,27,28,29: begin p:=(ch mod 10); v:= ('двадцать' ); end;
30: v:= ('тридцать ');
31,32,33,34,35,36,37,38,39: begin p:=(ch mod 10); v:= ('тридцать' ); end;
40: v:= ('сорок');
41,42,43,44,45,46,47,48,49: begin p:=(ch mod 10); v:= ('сорок' ); end;
50: v:= ('пятьдесят ');
51,52,53,54,55,56,57,58,59: begin p:=(ch mod 10); v:= ('пятьдесят' ); end;
60: v:= ('шестьдесят ');
61,62,63,64,65,66,67,68,69: begin p:=(ch mod 10); v:= ('шестьдесят' ); end;
70: v:= ('семьдесят ');
71,72,73,74,75,76,77,78,79: begin p:=(ch mod 10); v:= ('семьдесят '); end;
80: v:= ('восемьдесят ');
81,82,83,84,85,86,87,88,89: begin p:=(ch mod 10); v:= ('восемьдесят' ); end;
90: v:= ('девяносто ');
91,92,93,94,95,96,97,98,99: begin p:=(ch mod 10); v:= ('девяносто ' ); end;
100: v:=('сто');
end;
writeln(v,p);
end.

Так оно по крайней мере запускается. Но нет обработки переменной p, по ней надо делать отдельный case of.

4,4(73 оценок)

Ответ:

OOONIMOOO

02.01.2022

1) Program n1;
var n,i:integer;
t:array[1..100] of real;
a,b:real;
begin
readln(n);
readln(a);
readln(b);
for i:=1 to n do
begin
t[i]:=(b-a)/n;
write(t[i],' ');
end;
end.
2) Program n1;
var a:array[1..100] of integer;
n,i:integer;
k:real;
begin
read(n);
k:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 2 <> 0 then
k:=k+1;
writeln;
writeln('кол-во нечет. чисел равно ',k,'');
end.
6) Program n1;
var a:array[1..100] of real;
i,n:integer;
s,sr:real;
begin
read(n);
for i:=1 to n do
read(a[i]);
s:=0;
sr:=0;
for i:=1 to n do
s:=s+a[i];
sr:=s/n;
writeln('сред. арифметическое равно ',sr,'');
end.
7) Program n1;
var a:array[1..100] of real;
i,n:integer;
min,max:real;
begin
read(n);
for i:=1 to n do
read(a[i]);
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
max:=a[1];
for i:=2 to n do
if a[i]>max then
max:=a[i];
writeln('максимальный элемент равен ',max,'');
writeln('минимальный элемент равен ',min,'');
end.
8) Program n1; var a:array[1..100] of real; i,n:integer; min,max,nom1,nom2:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; nom1:=1; for i:=2 to n do if a[i]<min then begin min:=a[i]; nom1:=i; end; max:=a[1]; nom2:=1; for i:=2 to n do if a[i]>max then begin max:=a[i]; nom2:=i; end; writeln('максимальный элемент равен ',max,', его номер ',nom2,''); writeln('минимальный элемент равен ',min,', его номер ',nom1,''); end.
9) Program n1; var a:array[1..100] of real; i,n:integer; min,max,s,sr:real; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(100)+1; write(a[i],' '); end; writeln; s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('ср. арифм. = ',sr,''); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end.

4,7(30 оценок)

Это интересно:

Хобби-и-рукоделие

04.09.2020

Как сделать фетровую шляпу: пошаговая инструкция с фото...

Хобби-и-рукоделие

01.08.2021

Как найти изображения на компьютере: советы и рекомендации...

Кулинария-и-гостеприимство

23.07.2022

Как приготовить бисквитный торт: простое рецепт и советы на все случаи жизни...

Компьютеры-и-электроника