The1eaten1choc
25.08.2022 18:18

С++ Исправьте ошибку в программе, чтобы нормально выводилось имя. Для удобства можно использовать компилятор https://www.onlinegdb.com/#

#include
struct person { //начало описания структуры "person"
int age; //член структуры - переменная целого типа
float height; //член структуры - переменная действительного типа
char gender; //член структуры - переменная символьного типа
char name [20]; //член структуры - массив символьноготипа (строка)
}; //конец описания структуры "person"
int main ( ) {
person man; //создание объекта "man" структуры "person"
printf ("Hello, enter your age, name and gender(m/f) witn spaces\n");
scanf ("%d%s%s", &man.age, man.name, &man.gender);
if (man.gender == 'm')
printf ("Hello, %s!\nYour age is %d.\nYou are a man!", man.name, man.age);
if (man.gender == 'f')
printf ("Hello, %s!\nYour age is %d.\nYou are a woman!", man.name, man.age);
if (man.gender !='m' && man.gender !='f')
printf ("You entered incorrect data, please try again!");
return 0;
}

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ррррррррор1
21.05.2021 18:09

program raf105;

const

 n = 10;

var

 x: array[1..n] of integer;

 i: integer;

 a,b,c: boolean;

begin

 a:= True;

 writeln('Заполните массив из ',n,' чисел');

 for i:=1 to n do

 begin

   readln(x[i]);

   a:= (x[i] = 0) and a;

   b:= ( not(c) and (x[i] > 0) ) or b;

   c:= ( not(b) and (x[i] < 0) ) or c;

 end;

 if a

   then writeln('Все числа равны нулю');

 if b

   then writeln('Первое ненулевое число - положительное');

 if c

   then writeln('Первое ненулевое число - отрицательное');

end.

PascalABC 3.4.2
0,0(0 оценок)
Ответ:
Bjuv
04.03.2023 12:37
У меня работа с одним массивом.
Паскаль.
---
uses crt;
const N=4;
        M=6;
var a: array [1..n,1..m] of integer;
    x,y,k,p: integer;
begin
     for x:=1 to n do begin
         for y:=1 to m do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     write('k='); readln(k);
     if k<=m then p:=m-1 else p:=m;
     for y:=k+1 to m do
          for x:=1 to n do
             a[x,y-1]:=a[x,y];
     for x:=1 to n do begin
         for y:=1 to p do
             write(a[x,y]:4);
         writeln;
     end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота