Адекватная версия:
PascalABC.NET
begin
var expr := Readstring();
expr.Split(' ')[0].Println;
end.
Версия "Нас так учили"
var
expression: string;
s_index: byte;
begin
s_index := 1;
readln(expression);
while expression[s_index] <> ' ' do begin
write(expression[s_index]);
s_index := s_index + 1;
end;
end.
Объяснение:
Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.
Использовал массив структур.
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
setlocale(LC_ALL,"russian");
float vesSum=0;
struct perevozka
{
int number;
string nazn;
string name;
float ves;
};
perevozka e[10] = {};
for(int i = 0; i<10; i++)
{
int a = 0;
string b, c;
float d = 0;
cout << "Введите номер перевозки, пункт назначения, наименование и вес для перевозки № ¹" << i+1 << endl;
cin >> a;
cin.ignore(32767, '\n');
getline(cin, b);
getline(cin, c);
cin >> d;
cin.ignore(32767, '\n');
e[i]= { a, b, c, d };
}
for(int i = 0; i<10; i++)
{
vesSum=vesSum+e[i].ves;
}
cout << "Суммарный вес: " << vesSum << " КГ";
system("pause");
return 0;
}
Ниже скриншот работы программы
Размер фото, мм Размер в пикселях
фактический с вылетами 300dpi 240dpi 200dpi
430x285 А3+ 436 x 291 5150 x 3437 4120 x 2750 3433 x 2291
420x297 А3 426 x 303 5031 х 3579 4025 x 2863 3354 х 2386
320x230 А4+ 326 х 236 3850 x 2787 3080 x 2230 2567 x 1858
297x210 А4 303 х 216 3579 х 2551 2863 x 2041 2386 х 1701
210x148,5 А5 216 х 154,5 2551 x 1825 2041 x 1460 1701 x 1217
150x100 156 х 106 1843 x 1252 1474 x 1002 1228 x 835
147x97 153 x 103