// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('k=', ReadSeqInteger('a,b,c,d=',4).Where(x->(x<0) and (-x mod 10=7)).Count); Writeln('S=',ReadSeqInteger('a,b,c,d=',4). Where(x->(x>-50) and (x <=70) and (x mod 4=0)).Sum); Writeln('S=',ReadSeqInteger('a,b,c,d=',4). Where(x->(abs(x)<=100) and (x mod 4=0)).Sum) end.
Каждый оператор Writeln решает одну из задач. Если надо все отдельно - просто удаляйте два остальных оператора.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('k=',
ReadSeqInteger('a,b,c,d=',4).Where(x->(x<0) and (-x mod 10=7)).Count);
Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
Where(x->(x>-50) and (x <=70) and (x mod 4=0)).Sum);
Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
Where(x->(abs(x)<=100) and (x mod 4=0)).Sum)
end.
Каждый оператор Writeln решает одну из задач.
Если надо все отдельно - просто удаляйте два остальных оператора.
#include <stdio.h>
int main()
{
char name[10];
int year;
printf("Введите Ваше имя: ");
scanf("%s",&name);
printf("Здравствуйте, %s\n",name);
printf("Введите год рождения: ");
scanf("%d",&year);
printf("Вам %d лет\n", 2017-year);
return 0;
}
Пример:
Введите Ваше имя: Natali
Здравствуйте, Natali
Введите год рождения: 2000
Вам 17 лет
C++
#include <iostream>
#include <string>
using namespace std;
int main()
{
string name;
int year;
cout << "Введите Ваше имя: ";
getline (cin, name);
cout << "Здравствуйте, " << name << endl;
cout << "Введите год рождения: ";
cin >> year;
cout << "Вам " << 2017-year << " лет" << endl;
return 0;
}
Пример:
Введите Ваше имя: Natali
Здравствуйте, Natali
Введите год рождения: 2000
Вам 17 лет