Какие ошибки допущены в программе? print (Введите число a)
a=int(input())
if a>=0:
if a=0:
a=18
else a+=1
else: a-=6
print (a)
input

исправьте их

.

👇

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

Ответ:

Abigael

22.12.2020

//PascalABC.NET 3.2 сборка 1318

type
student=record
FIO:string;
age:integer;
CountOf3:integer;
end;

Const
n=3;

Var
ar:array[1..n] of student;

procedure reading();
Var
i:integer;
begin
writeln('ФИО |Возраст | Количество троек');
for i:=1 to n do
begin
read(ar[i].FIO);
write(' ');
read(ar[i].age);
write(' ');
read(ar[i].CountOf3);
writeln;
end;
end;

procedure writing();
Var
i:integer;
begin
writeln('ФИО |Возраст ');
for i:=1 to n do
if ar[i].CountOf3=1 then write(ar[i].FIO,' ',ar[i].age);
end;

begin
reading;
writing;
end.

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

Ответ:

aguanapfel

22.12.2020

//прога на Pascal`e
const
size1 = 12; size2 = 12; size3 = 5;

surnames: array [0..size1-1] of string =
('Петров', 'Иванов', 'Рузвельт', 'Лежебокер', 'Тьюринг', 'Земляника', 'Пугачев', 'Бухаров', 'Путин', 'Куклачев', 'Герасимов', 'Михайлов');

names : array [0..size2-1] of string =
('Петр', 'Иван', 'Франклин', 'Роман', 'Алан', 'Виктор', 'Дмитрий', 'Кузьма', 'Денис', 'Ахмед', 'Владимир', 'Станислав');

groups : array [0..size3-1] of string =
('Историки', 'Археологи', 'Филологи', 'Математики', 'Ораторы');

type marks = record
m2, m3, m4, m5: byte;
end;

student = record
Surname: string[20];
name: string[20];
group: string[20];
GR: integer;
mark: marks;
end;

var
i: byte;
stud: array of student;

procedure randomSTUD ();
var i: byte;
begin
randomize;

setLength (stud, random(30)+1);
for i:=0 to length (stud)-1 do
begin
stud[i].Surname:=surnames[random (size1)];
stud[i].name:=names [random (size2)];
stud[i].group:=groups [random (size3)];
stud[i].GR:=1999 - random (6);
stud[i].mark.m2:=random (3);
stud[i].mark.m3:=random (3);
stud[i].mark.m4:=random (3);
stud[i].mark.m5:=random (3);
end;
end;

procedure writeofSTUD ();
var i: byte;
begin
writeln ('Студентов: ', length(stud));
for i:=0 to length (stud)-1 do
begin
writeln ();
writeln ('');
writeln ('Студент №', i+1);
writeln ('Фамилия: ', stud[i].Surname);
writeln ('Имя: ', stud[i].name);
writeln ('Группа: ', stud[i].group);
writeln ('Год рождения: ', stud[i].GR);
writeln ('Оценки: ');
writeln ('Кол-во двоек: ', stud[i].mark.m2);
writeln ('Кол-во троек: ', stud[i].mark.m3);
writeln ('Кол-во четверок: ', stud[i].mark.m4);
writeln ('Кол-во пятерок: ', stud[i].mark.m5);
end;
end;

begin
randomSTUD;
writeofstud;
end.

4,8(86 оценок)

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

Питомцы-и-животные

07.12.2022

Как приучить кошку ходить в туалет на унитаз...

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

27.12.2021

Как готовить морского окуня: секреты профессионалов...

Дом-и-сад

21.02.2022

Как выращивать тыкву зимних сортов: советы и рекомендации...

Стиль-и-уход-за-собой