М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kisaev16
kisaev16
11.03.2022 20:48 •  Информатика

Паскаль абс. нет у меня выводит строка имела неверный формат (строка где tovar) var money, cost,summa,tovar : real; count : integer; begin writeln('введите исходные данные: '); writeln('какой товар вы покупаете? '); readln(tovar); writeln('по какой цене? '); readln(cost); writeln('сколько штук? '); readln(count); summa : = cost*count; writeln('ваш товар - ', tovar, '. стоимость покупки: ',summa: 0: 2); writeln('сколько денег даете? '); readln(money); if money > summa then writeln('ваша сдача: ', money-summa) else end.

👇
Ответ:
vadimkaIVA
vadimkaIVA
11.03.2022
Var
money,cost,summa: real; 
count : integer;
tovar : string;
begin writeln('Введите исходные данные: '); 
writeln('Какой товар вы покупаете? ');
readln(tovar);
writeln('По какой цене? ');
readln(cost); 
writeln('Сколько штук? ');
readln(count); 
summa := cost*count; 
writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2); 
writeln('Сколько денег даете? '); 
readln(money); 
if (money >= summa) 
then writeln('Ваша сдача: ',money-summa)  
else writeln ('Вам нехватает ',summa-money) end.
4,5(82 оценок)
Открыть все ответы
Ответ:
1234567890859
1234567890859
11.03.2022

рисунки кодируются с следующих команд:

установить х, у — установить в качестве текущей точку с координатами (х, у);

линия к х1, у1 — нарисовать линию от текущей точки до точки с координатами (х, у), при этом точка (х1, у1) становится текущей;

окружность х, у — нарисовать окружность с центром в точке (x, у) и радиусом ;

прямоугольник х1, у1, х2, у2 — нарисовать прямоугольник, где (x1, у1) — координаты левого верхнего, а (х2, у2) — правого нижнего угла этого прямоугольника.

по имеющимся описаниям восстановите рисунки.

описание

установить 60, 20

линия к 20, 60

линия к 180, 60

линия к 140, 20

линия к 60, 20

прямоугольник 60, 80, 100, 60

прямоугольник 100, 120, 150, 60

окружность 140, 40, 10

описание

установить 20, 50 линия к 40, 70 линия к 50, 70 линия к 90, 110 линия к 120, 120 линия к 110, 90 линия к 70, 50 линия к 70, 40 линия к 50, 20 линия к 50, 40 линия к 40, 50 линия к 20, 50 окружность 80, 80, 10 окружность 100, 100, 10

описание

установить 20, 80 линия к 65, 110 линия к 110, 80 линия к 20, 80 прямоугольник 20, 30, 110, 10 прямоугольник 30, 80, 40, 30 прямоугольник 50, 80, 60, 30 прямоугольник 70, 80, 80, 30 прямоугольник 90, 80, 100, 30

описание

установить 30, 40 линия к 40, 10 линия к 60, 10 линия к 70, 40 прямоугольник 20, 50, 80, 40 установить 50, 50 линия к 50, 80 окружность 40, 80, 10 окружность 60, 80, 10 окружность 30, 100, 10 окружность 50, 100, 10 окружность 70, 100, 10 окружность 40, 120, 10 окружность 60, 120, 10

4,5(71 оценок)
Ответ:
veyper1
veyper1
11.03.2022

#include

#include

int main()

{

int n;

int cnt = 0;

std: : cin > > n;

int **arr = new int*[n];

for(int i=0; i

{

arr[i] = new int[n];

for(int j=0; j

{

std: : cin > > arr[i][j];

//arr[i][j] = ++cnt;

}

}

cnt = 0;

while(cnt < n)

{

for(int i=0; i< (n-cnt); i++) std: : cout < < std: : setw(2) < < arr[cnt][i] < < " ";

std: : cout < < std: : endl;

cnt++;

}

for(int i=0; i

delete [] arr[i];

delete [] arr;

arr = nullptr;

system("pause");

return 0;

}

4,7(58 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ