Информационная технология базируется и зависит от технического, программного, информационного, методического и организационного обеспечения.
Uses crt;
var a,b,s:integer;
begin
readln(a);
readln(b);
s:=a*b;
writeln(s);
end.
#include "iostream"
#include "math.h"
using namespace std;
int main()
{
float s, a[30], day=0; //объявление переменных
cin>>s; //ввод S
for(int i=0; i<30; i++) //заполнение массива случайными числами
{
a[i]=rand();
}
for(int i=0; i<30; i++)//подсчет количества дней
{
if(a[i]>s)
{
day++;
}
}
cout<<"Kolichestvo dney: "<<day<<endl; // вывод количества дней
system("pause");
return 0;
}
Никак:(((((((((((((((((((((((((((
Var
l,i:integer;
s,w:string;
prt:boolean;
c:char;
begin
{ s:=' Арбуз вагон барабан Goodday dummy. '; }
Write('Введите строку: ');
Readln(s);
l:=Pos('.',s);
s:=Copy(s,1,l-1)+' ';
i:=1;
prt:=False;
w:='';
while i<=l do
begin
c:=s[i];
if c=' ' then
begin
if prt then
begin
if Length(w)>2 then Write(Copy(w,1,Length(w)-2),' ');
w:='';
prt:=not prt
end
end
else
begin
w:=w+s[i];
prt:=True
end;
Inc(i)
end;
Writeln
end.